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IRE PRESENTS. 



CinMB (U»mI 

The fallen Time Lord, who presumptuously calls himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
TARDIS, and commissioned you to eliminate the evil "Master". Your resources in- 
clude clones who will fight for you, the formidable CRASER weapons of the TARDIS, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Travelling through hyperspace in search of the evil one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 
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Based on Dr. Who of PBS fame. 
Apple Integer Basic, 
Disk, 48K . . . $29.95 

#47-1910010 
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EXPAND YOUR 

COMPUTING 

CAPABILITIES! 




THE CHATTERBOX 

All of the-features of the Comm-80 Interface plus a built-in acoustic modem for 0-300 baud operation. Includes Full/Half 
Duplex terminal software. Unit is covered by a 90-day guarantee from MICROMINT. #4-81 (5 lbs.) $239.00 

ST80* SMART TERMINAL PACKAGE 

All four programs include the ability to use an unmodified TRS-80TM keyboard to produce RUB, ESC, and other control 
characters for time sharing, software control of the RS-232C board, repeat key, bell, software support for the three most 
common upper/lower case hardware conversion, and line printer output. 

ST80* UC 

Preset parity, word length, and baud rate (regardless of switch settings on the RS-232C board) for THE SOURCE, 
MICRONET, and FORUM 80, automatic testing of the RS-232C board, and even spooling of prepared messages on tape 
directly into FORUM 80 using a BASIC program supplied as a line listing. 4K Mod I/Mod III cassette I26-ST8S . . $24.95 

ST80* 

Reprogram your RS-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testing of 
the RS-232-C or tape spooling. 4K Level II Cassette »26-ST80 $49.95 

ST80* D 

Connection time clock, option of user-created translation tables for keyboard, gathering and pre-formatting data to be sent 
directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and auto logon. Use 
it with VTOS 3.1, and get device-driven I/O, job logging, and chaining. 32K disk program. . . . K6-ST8D $79.95 

ST80* III 

Represents the "state of the art" in communications processors and was designed for complex communications processing. 
Included in this package is a set of programs which allows your Model I or Model III to talk to a time-sharing computer, 
transfer files to and from the central computer, and customize your ST80-III program to suit your specific time-sharing enviro- 
ment. Altogether you receive seven programs with this system. 32K disk program f26-STe3 $150.00 

THE SOURCE 

Would you like to send mail across the country overnight, write one letter and send it to a hundred people, read the news 
right off the wire service, program in COBOL, FORTRAN, or RPG II, advertise on a nationwide electronic bulletin board, 
join a real time national computer club, leave messages when you are out of town, make travel arrangements through your 
computer, use a discount shopping service, reach a whole library of specialized information on business, real estate, science 
and engineering, and personal applications, find out what the weather is around the country, and use dozens of high-powered 
applications programs? 

Connect your microcomputer to THE SOURCE! THE SOURCE is a bank of mainframe computers in McLean, Virginia 
connected by TYMNET and TELEMET data transmission services to hundreds of cities around the country. Most urban areas 
can access THE SOURCE by local phone call. Costs: 

One time subscription fee (includes manuals) SIOO.OO 

Connect time after midnight (per hour) $2.75 

Connect time between 6 p.m. and midnight (per hour) $4.25 

Connect time 8 a.m. to 6 p.m. (per hour) $15.00 
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'STBO l3 a trademark of Lance MIcKlus, Inc. TRS-80 Is a trademark of 
Tandy Corp. 
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BASIC Compiler, with trs-8o basic 

Compiler, your Level II BASIC programs will run at 
record speedsl Compiled programs execute an 
average of 3-10 times faster ttian programs run 
under Level II. IVIake extensive use of integer 
operations, and get speeds 20-30 times faster 
tl^an tfie interpreter 

Best of all, BASIC Compiler does It with BASIC, 
the language you already know. By compiling 
the same source code that your current BASIC 
interprets, BASIC Compiler adds speed with a 
minimum of effort. 

And you get more BASIC features to program 
with, since features of Microsoft's Version 5.0 
BASIC Interpreter are included in the package. 
Features like the WHILE . . .WEND statement, long 
variable names, variable length records, and the 
CALL statement make programming easier An 
exclusive BASIC Compiler feature lets you coll 
FOf^TRAN and machine language subroutines 
much more easily than in Level II. 

Simply type in and debug your program as 
usual, using the BASIC interpreter Then enter a 
command line telling the computer what to 
compile and what options to use. 

Voilo! Highly optimized, Z-80 machine code 
that your computer executes in a flash! Run it now 
or save it for later Your compiled program can be 
saved on disk for direct execution every time. 

Wont to market your programs? Compiled ver- 
sions are ideal for distribution.* You distribute only 
the object code, not the source, so your genius 
stays fully protected. 

BASIC Compiler runs on your 
TRS-80 Model I with 48K and disk 
drive. The package includes 
BASIC Compiler, linking loader 
and BASIC library with complete 
documentation. $195.00. 

"Microsoft royalty information for 
the sale of programs compiled 
with BASIC Compiler is available 
from Microsoft. 




muMfflTH Symbolic Math System 

expands your TRS-80 beyond the limits of numeri- 
cal evaluation to a much higher level of math 
sophistication. 

Symbolic mathematics is muMATH's power For 
the first time, algebra, trigonometry, calculus, 
integration, differentiation and more can be per- 
formed on a system smaller than an IBM 370. And 
in a fraction of the time you could do them 
manually 

Yet for all its power, muMATH is simple to use. 
To perform a differentiation you could enter: 
?DIF(A"XT 3 -I- SIN(XT 2],X); 

In almost no time, the computer would reply 
with: @2*X*COS(XT 2] -I- 3'A'X ! 2. 

Or to add fractions: ?1/3 + 5/6 -I- 2/5 + 3/7; 
The instantaneous answer: 419/210. 
Or to perform a more difficult trigonometric 
expansion you enter: SIN[2-Y]*(4'COS(X]T3-COS 
[3-X] + SIN (Y]"[COS(X-l-Y-l-#PI) - COS(X-Y)); 

Just a few seconds later the computer replies: 
(Q)4"SIN[Y]"COS(X]*COS[Y). 

muMATH has virtually infinite precision with full 
accuracy up to 611 digits. 

If you use math, you'll find countless ways to save 
time and effort with muMATH. It's a professional 
tool for engineers and scientists. A learning tool 
for students at any level from algebra to calculus. 
And if you want to expand your capabilities 
even beyond the standard muMATH, the option is 
open. muSIMP, the programming language in 
which muMATH is written, is included in the muMATH 
package. A superset of the lan- 
guage LISP, muSIMP is designed 
especially for interactive symbolic 
mathematics and other artificial 
intelligence applications. 

muMATH and muSIMP were 

written by The Soft Warehouse, 

Honolulu, Hawaii. Priced at $74.95, 

the package includes muMATH, 

muSIMP and a complete manual. 

It requires a Model I TRS-80 with 

32K and single disk. muMATH 

for the Apple II Computer will 

be available later this year 



Ji 



FROM ^_ ^_ 

r CONSUMER^ PRODUCTS F 



H= TS€:IHP)RI>SID6 

6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



SoftSide June 1981 




TABLE OF CONTENTS 

ARTICLES 

1 1 THE RACE OF THE SORTS a showdown of sorts S-80 Rik Karlsson 

30 COMPUTER GRAPHICS More Pattern Generation Apple Joan Truckenbrod 

47 CUSTOM TAPES waste not, want not Ed Ting 

52 LEMONADE OR CHAMPAGNE Will Hagenbuch's book in serial form Will Hagenbuch 

58 ALL RAMS ARE NOT CREATED EQUAL Tribulations in chip city Joesph V. Cesaitis 

78 REVIEWS Lords of Karma; Poker Tournament; Thrilogy of Games; Micro-Painter Dave Albert, Jon Voskuil 

S-80, APPLE, AND ATARI PROGRAMS 

48 OLD GLORY For all you flag lovers William Morris & John Cope 

92 WORD-SEARCH PUZZLE GENERATOR Befuddle vour friends David Durkee. Jon Voskuil 

APPLE PROGRAMS 

20 MATH DECATHLON The final installment Jon Voskuil 

26 HEXADECIMAL PUZZLE a new twist to an old puzzle George W. Ziegler 

28 MAZE SEARCH Translated from the Atari Carl Mueller, Dave Bohlke 

32 MUSI-KEYS INPUT ROUTINE Let your keys talk back to you Jon Voskuil 

ATARI PROGRAMS 

34 VOLCANO Mt. St. Helens eruDts vet anotlfir time Art Cestaro, Victor T. Albino 

38 CATACOMBS OF THE PHANTOMS Explore the tunnels beneath Petiteville Tom Plassman 

S-80 PROGRAMS 

62 BATS The Electronic Vampire Nightmare Game John Baker, D. V.M. 

66 DIVIDE AND CONQUER Are they aliens or amoebae? Phillip C. Soine 

74 KRAZY TALK Are you creatively articulate? David Gash 

90 ANALLIST a listing utility Rod Fitzgerald 

DEPARTMENTS 

4 EDITORIAL jon voskuii 

5 ABOUT THIS ISSUE Munchkins Galore 

6 INPUT From our readers 

7 OUTGOING MAIL Dave Albert 

25 CALENDAR Editors 

42 SAY YOHO Scott Adams 

46 WORD-SEARCH PUZZLE #2 SOLUTION Editors 

57 WHAT'S NEW EdUmior 

77 BUGS, WORMS & OTHER UNDESIRABLES Kay Pasa 

81 HARDWARE CORNER EdUmior 

82 THE SENSUOUS PROGRAMMER "j" 

96 WORD-SEARCH PUZZLE #3 Editors 

Use the following symbols as a guide when reading our ads. They indicate the computer(s) for which 
the product was designed. ^trs-80 5^ apple ^^^atari ^pet 

•TRS-80, Apple, Atari, and Pel are registered trademarks of Tandy Corporation. Apple Computer Company. Warner Commiinicalions. and Commodore Business Machines. 

SoftSide June 1981 



STAFF 



PUBLISHER: 

Roger Robitaille Sr. 

EDITORIAL DEPARTMENT 

Scott Adams 
Dave Albert 
Rich Bouchard 
Sandy Dean 
Steve Justus 
Mary Locke 
Lance Micklus 
Mark Pelczarski 
Joan Truckenbrod 
Jon Voskuil 
Joan Witham 

PRODUCTION DEPARTMENT 

E>onna Bennett 
Cindy Boucher 
Lynda Fedas 
Damian Henrlques 

STAFF 

Patricia Acampora 

Lester Anderson 

Ruth Anderson 

Judic Aveni 

Brian Berkebile 

Diana Bishop, Subscriptions 

Kathleen Boucher 

Suzanne Breton 

Philip Brown 

Jeff Carroll 

Brenda Cooking ham 

Donna Cookingham 

Joanne Cummings 

Pam Demmons 

Mary Edwards, Software Information 

Mark Eric, Atari Submissions 

Anthony Eraser 

Mary George 

William F. Gollan, Advertising 

Mylene Grigas 

Kathleen Hannon 

Pamela Home 

Robert Hunsacker 

Dave Hutchings 

Donna Jean 

Bette Keenan, Customer Service 

Bea Kimball, Software Shipments 

Randal Kottwitz 

Karen Lawrence 

Kathy Maloof 

Jean Matthews 

Dick Mehlhorn, Hardware Information/Shipments 

Doris Miller 

Oem Morey, Apple Submissions 

Robin Moss 

Glen Ohlund 

Mary Reed, Dealer Information 

Carol Roane 

David Robitaille 

Elizabeth Robitaille, Personnel Administrator 

Cindy Schalk 

Ken Sicard, S-80 Submissions 

Otto Snow 

Christine Spade 

Alan Thulander 

Joanne Tracy 

Anmar William 

Nancy Wood 

Ed Umlor 

Gary Young 

Cynthia Zawacki 



SoftSide is published each month by SoftSidc 
Publication, 6 South Street, Milford, New Hampshire 
03055. Telephone 603-673-5144. Controlled circulation 
postage paid, Milford, New Hampshire 03055 and 
additional' entries. ISSN: 0274-8630. Application to mail at 
controlled circulation postage rate is pending at Concord, 
NH 03301. Subscription rates: USA $24.00 per year. USA 
First Class, APO, FPO, Canada, Mexico, Overseas surface 
mail -$32.00 per year. Overseas air mail $48.00 per year. 
All remittance must in U.S. funds. Mail subscription 
inquiries to SoftSide Publications, P.O. Box 68, Milford, 
New Hampshire, 03055. Entire contents copyright 1981. 
SoftSide Publications. All rights reserved. 

POSTMASTER: 

Send address changes to: 

SoftSide Publications 

6 South Street 

Milford, New Hampshire 03055 




EDITORIAL 



by Jon Voskuil 

Whenever someone asks to "see 
my computer" for the first time, I'm 
always somewhat at a loss for what to 
do. Oh, it's easy to show it to kids, 
because they can so easily get caught 
up in any number of games. But it's 
much harder to "show" your com- 
puter to most adults. They're 
generally too self-conscious to throw 
themselves into computer games, 
afraid of making fools of themselves 
by getting clobbered in front of their 
friends. Compared to younger folk, 
they're also more sophisticated, more 
pragmatic, and more suspicious of 
machines. Especially machines of the 
type that send them overdue bill 
notices and make mistakes on their 
charge accounts. 

Maybe the most difficuh thing 
about showing one's computer to 
most post-adolescents is that you not 
only have to "show" it but also to 
justify its existence (and the small 
fortune that you obviously must have 
spend on it). You can show it by ex- 
posing its innards and connecting its 
cables and booting its disks and run- 
ning all its neat programs — but how 
do you justify it to a skeptic, who 
sees it as a whimsical, materialistic in- 
dulgence of the first order, with no 
redeeming social value? 

The things about your computer 
that you can show someone in half an 
hour really don't justify its existence. 
Unless, for example, you're a writer 
and use it as a text processor — that's 
something "practical"! But I don't 
think that all the games in SoftSide's 
(or your) library justify owning a 
home computer. What does justify 
one, even for a person like me (and 
probably you) who has no practical 
use for one, is that the home com- 
puter is able to function as a mind- 
extension tool. And that's something 
that's very nearly impossible to 
"show" to anyone else, especially a 
skeptic. 

This isn't to say that everyone 
should extend their mind via a com- 
puter, or that a maze of silicon, PC 
boards, and plastic is the only way 
(or even the best way) to expand the 
horizons of your thought processes. 
But it's one way, and a good one at 
that. I occasionally have anti-rational 
and anti-technological fits that leave 
me disillusioned with mind and 
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machine, but most of the time I think 
that rational intellect is good and that 
technology (while not inherently 
good) has a lot of beneficial uses — 
when we're able to control it, rather 
than vice-versa. 

My wife loves to tell the story of a 
discussion we had a few years ago 
with two other couples, oGr very 
closest friends. In it we were all shar- 
ing some of our gut-level dreams and 
visions for our lives. And amidst the 
noble and altruistic aspirations of the 
other five people, I confessed in a 
paroxysm of honesty that one of my 
lifelong dreams was to live in a house 
with every conceivable electronic 
gadget built into it. 

Now, admittedly, that's a pretty 
materialistic goal for one's life! And 
I knew then, as I know now, that 
people are of a whole different order 
of importance and value than things, 
and that all the electronic marvels in 
the world can't add up to real hap- 
piness. (Usually all they add up to is a 
lot of repair bills.) So much for the 
homily. But there is a certain kind of 
(very valuable) intellectual exercise 
that complex machines like com- 
puters can provide. They foist upon 
you a relentless rationality which you 
cannot escape (short of pulling the 
plug), and to which you must re- 
spond in kind if you want to ac- 
complish anything. 

That kind of restriction simply 
doesn't apply in our everyday con- 
tacts with people, where nonrational 
and even nonverbal factors are often 
more significant than the purely ra- 
tional and intellectual. There's 
something rather comfortable and 
also stimulating about working from 
time to time within that verbal/ra- 
tional boundary which computers 
prescribe. As long as it doesn't 
become a substitute for, or escape 
from, the full depth of human con- 
tact, it's not only fun but beneficial. 
The hardware and firmware and soft- 
ware that make up computers were 
all designed by people as expressions 
of their rational intellect, and the im- 
personal machine between that 
designer and me allows our minds to 
meet in a unique way. I can't show 
you that meeting of minds in half an 
hour, but that's why I own that com- 
puter. Q 
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Howdy, howdy folks, it's us again, 
Munchkin City ready to bend your 
eyeballs for a page or so. First a word 
from Uncle Fred... 

Boy are you guys sharp-eyed. Next 
Easter we're going to scramble the 
fershlugginer egg and scatter it 
throughout the magazine! It was too 
easy this year, why we got scads of 
letters, all of them correctly noting 
the egg under the question mark after 
the word "board". No more Mr. 
Nice Munchkin, we're going to get 
tough! In the meantime, here's the 
list of those astute enough to find the 
egg: 

Matt Friedenberg — Morristown, NJ 

Greg Perry — Tulsa, OK 

Shawn Morrison — Satellite Beach, 

NJ 

Dennis L. Wasson — Council Bluffs, 

lA 

V.S. Gavande — Austin, TX 

David Gantenbern — Sterhng Hts., 

MI 

Cherryl Chamblee — Raleigh, NC 

S. Louise Rankin — Nashville, TN 



Sharon Burton & Keith Shirley — St. 
Albans, WV 

Patricia M. Finkenbine — Albuquer- 
que, NM 

James Marcolesco — Cilia Park, CA 
Keith Durbin — Paducah, KY 
Alaa El Ghatit — Brookfield, WI 
Alan J. Wallace — Southfield, MI 
Dan Diegmueller — Cincinnati, OH 
Bob Cross — Cheshire, CT 
Leanne Phillips — Montpelier, VT 
Thomas O'Hara — Anson, ME 
John Eng — Plymouth, MN 
Thanks Fred. 

This month our erstwhile bosses 
have decided to swamp you with soft- 
ware of all sorts, ranging from 
utilities to games, with a little 
patriotic fervor thrown in for good 
measure. Our feature article is a bit 
late for Flag Day and a tad early for 
the Fourth of July... but we figured 
(as we are wont to do on rare occa- 
sions) that you'd rather have this gem 
before our nation's birthday: We 
proudly present, for all of the 
systems we support, "Old Glory" by 
(who else?) William Morris and John 



Cope. Those fellows don't ever stop 
cranking out that good stuff, do 
they? 

And for you animal lovers, we've 
included a program by a veterinarian, 
John Baker, entitled "Bats", the 
Electronic Vampire Nightmare 
' Game. What we munchkins would 
like to know is how does an electronic 
vampire differ from a flesh and 
blood vampire? They probably only 
put the bite on transistors and televi- 
sion sets... 

Our utility this month is 
"Anallist" by Rod Fitzgerald. The 
program will take packed listings and 
list them out in a single statement, 
structured format, making it substan- 
tially easier to understand how a par- 
ticular program works. Unless, of 
course, you're blessed with Munch- 
kin perspicacity, in which case you 
wouldn't understand a one liner. 

For you S-80 space jockeys we 
have "Divide and Conquer," by 
Philip C. Soine. This program has 
monsters from Krypton and a variety 

continued on page 37 
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by David T. Gray 

COLUMN CALCULATOR is a "word processor lor 
numbers," a number processor designed to be used like 
a calculator. But it can handle large blocks ol information 
as if fiandiing one number at a time, Ttie work space can 
be thought of as a large matrix with rows and columns 
much like an accountant's spreadsheet. Data can be easi- 
ly entered into columns; and the columns can then be 
moved around. Columns can be overlaid from an existing 
data file on disk. One column can be added, subtracted, 
multiplied, divided, or raised to a power of another and 
the results put in another column. Columns can be com- 
pared to one anottier. Columns can be totalled, or set with 
a constant, and any column can be sorted, carrying the 
rest of the columns with it. A predefined function can be 
defined, thereby preprogramming the worksheet. 

The statistical section provides analysis of the data. The 
analysis includes simple statistics, linear regression, sim- 
ple correlation, histogram and the T-test. 

The information can be printed out on the line-printer in 
a compressed format at any stage in the development of a 
data base. Thus, it can be used as a finished report or as 




a copy of the worksheet to permit the filling in of addi- 
tional data for later entry into the data base. The data base 
can be saved on disk and recalled at a later date tor 
modification or for generating a report. Any column in a 
file on disk can be referenced and added to the current 
worksheet. 

All user communication with COLUI^N CALCULATOR 
uses FLASH, the line input/editor routine. This enables 
the user to not only key in instructions, but to edit errors 
or data as well. 
S-80, 32K disk .... #26-coLC $39.95 
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Dear SoftSide, 

I have recently obtained an Apple II 
Plus, and discovered your magazine 
shortly thereafter. I am generally satisfied 
with SoftSide, but there are two things 
that bother me enough to cause me to 
write. 1) Please, please do not squash the 
programs when they are listed. It is very 
difficult to read the listings and separate 
the commandswheneverythingisrun 
together. 2) Let's see some more creative 
programs for the Apple in Applesoft. I 
am especially interested in Adventures, 
and, since October, 1980, all Adventure 
programs have been for the S-80. It is very 
frustrating to see a highly interesting pro- 
gram, just to discover that it is not in a 
language I can use. How about more 
translations, or at least more instruction 
on how to translate into Applesoft. 

This is not to give the impression that I 
am entirely dissatisfied. I have enjoyed a 
number of the programs so far, although 
I still can't get "Moon Landing" to run. 
Keep up the good work, but do take my 
suggestions into consideration. 

D. Scott Harper 
Skokie, IL 

Editor's Reply: See "Outgoing Mail" this 
issue for a discussion of the Apple adven- 
ture matter. 

Dear SoftSide, 

Being a beginner to computers I think 
as far as introducing computers, you have 
a great magazine. But I think it would be 
nice if you put a few S-80 Level I pro- 
grams in along with some of the Atari 
ones. But what I really wanted to say was 
that I very much enjoyed your "Big Ap- 
ple Adventure" (March issue). 

Keep up the good work!! 

Marc R. EUingstad 
Burlington, WI 
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INPUT POLICY 

SoftSide Magazine welcomes your 
comments and thoughts on both the 
magazine and the field of microcom- 
puting. We try to publish as many of 
our readers' letters each issue as we 
can. 

For the sake of clarity and legibili- 
ty, all letters should be typewritten 
and double-spaced. Send your letters 
to: 

SoftSide Publications, 
Input 

6 South St., 
Milford, N.H. 03055 

We reserve the right to edit any letters 
prior to publication. 



Dear SoftSide, 

I would like to congratulate you on 
publishing an excellent magazine. 

Now to the nuts and bolts of this letter. 
Why don't you publish more games for 
the poor unfortunates who only have 
Level I S-80 computers with only 4K of 
RAM? I know it is extremely difficult to 
have an exciting game with only 4K of 
RAM to work with, but surely there are 
some around. 

While I have your attention, do you 
plan to publish games for the S-80 Color 
Computer in the future? 

Jerry Muller 
Kissimmee, FL 
Editor's Reply: Sorry about Level I pro- 
grams, but due to the limitations of that 
BASIC, we stick to Level II and Disk 
BASIC. As for Color Computer pro- 
grams, we are eagerly awaiting submis- 
sions for that system. 

Dear SoftSide, 

Re: J. Dineen's letter (3/81 issue) re- 
garding "Protour 80" in the 8/80 issue. 

I just love his distance gauge for putt- 
ing. It has improved my score by at least 
five strokes. 

To return the favor, maybe he would 
like to make the following changes to the 
same program which, by the way, is 
excellent. 

Rather then put the woods, irons, and 
wedge distances in PRINT AT 
statements, I made the following addi- 
tions to lines 9705, 9714, and 9716. 

With these changes, you have the 
distances on the screen as you are select- 
ing your club. 

9705 — Eight spaces after wedge(s) I 
added wood = 200-260 yards. Then three 
spaces and I added iron = 90-200 yards. 
Then three more spaces and add sand 
wedge =30-70 yards. 

9714 — Three spaces after (1-9) I added 
I =200 yards. Then three spaces and add 
9 = 90 yards. 

9716 — Three spaces after (1-4) I added 
I = 260 yards. Then three more spaces and 
add 4 = 200 yards. 

As previously stated, there is no referr- 
ing back necessary as the distances and 
club selections are right in front of you. 

I hope this minor improvement will 
help Joseph to improve his game. Perhaps 
it may even benefit a few of your other 
subscribers. 

Suggestion — perhaps a column 
devoted strictly to improvements on your 
programs by readers would be a nice addi- 
tion to your magazine. 

Finally, may I say that SoftSide is the 
best medicine that any doctor could have 
prescribed for my S-80 and I am quite cer- 
tain that numerous Atari and Apple 
owners are of the same opinion. 

Raymond Nehilla 
Ambridge, PA 
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Dear SoftSide, 

I enjoy your magazine for its game pro- 
grams and other information within Soft- 
Side's covers. However, it would be nice 
to have covers on the issues I receive. The 
February, 1981, issue arrived in a protec- 
tive envelope (I do not know why a pro- 
tective envelope instead of an ordinary 
manila envelope) and when it was opened, 
the magazine inside was in sad shape. The 
cover was off and almost torn along the 
fold between front and rear covers. Pages 
inside the magazine were folded over and 
a few were torn. My little but expanding 
library of books and magazines is for the 
most part, in very good shape. This issue 
is not up to standard. I ordered a large 
number of rod binders to be able to keep 
the magazines in good shape and it would 
be difficult to keep this issue in a binder 
without totally destroying it in the 
process. 

Other than that, I enjoy the magazine 
and eagerly await its arrival so that I can 
spend untold hours punching away at the 
keyboard of my Apple, putting in the pro- 
grams and correcting the mistakes I make. 
I originally ordered the Apple version of 
SoftSide, but the first issue to arrive was 
the first combined issue. Contrary to 
what a few people said in the following 
issues, I have no problem with the com- 
bined format. I would like to know about 
the possibility of getting the back issues of 
SoftSide: Apple edition, and maybe some 
of the TRaSh-80 issues. May I also sug- 
gest a series of articles on translating one 
version of BASIC to another. I have 
learned a few tricks due to the side-by- 
side publishing of programs, but I would 
like to know more. Thank you, and keep 
up the good work. 

Reginald Wagner 
Edmonton, Alberta, Canada 

Editor's Reply: 1) We are exploring solu- 
tions to the problem of the covers getting 
damaged in the mail. 2) Back issues are 
available. See page 45. 

Dear SoftSide, 

I am attempting to compile a list of 
S-80 Model I programs that will (or will 
not) run on the Model III. 1 would ap- 
preciate any input from your readers. 



To those who kindly respond, please 
mention if the program was on disk or 
tape; BASIC, SYSTEM, or disk CMD 
file; whether it runs under Level II or 
DOS; and, if DOS, which one. If any 
changes needed to be made to the pro- 
gram, what were they? 

AH those who send me information will 
be sent the compiled Hst (after a 
reasonable length of time to get all input) 
if a SASE is included with your infor- 
mation. 

Thank you for your help. 

Ken Knecht 

1340 W. 3rd ST. #130 

Yuma, AZ 85364 

Dear SoftSide, 

Most Atari owners know that if a key is 
not pressed in approximately nine 
minutes, the computer will go into a ran- 
dom color switching mode, to prevent 
damage to phosphor on the cathode ray 
tube of the monitor. 

To understand this feature of the Atari, 
we can view the counting system at 
memory location 77. 

Type in the following short program 
and view the results. 

10 POKE 752, 1 

20 PRINT PEEK(77) 

30 GOTO 10 

As you can see by observing the run, 
RAM location 77 starts the count at and 
steps by a 1 count each 4 to 4.5 seconds. 
While the program is running, press any 
key except BREAK or CTRL keys. 
Memory location 77 will return to and 
the countdown will begin again. 

If you allow the program to run until 
the count reaches 128, it will set to 254 
and the random changes begin. 

The lower seven bits of memory loca- 
tion 77 are used to count from to 127. 
At count 127 the lower seven bits are 
binary Is. Adding one more bit changes 
the eighth bit from to 1 and triggers the 
switching circuit. (Any number from 128 
to 255 POKED into location 77 will cause 
an immediate color rotation.) Example: 

5 POKE 77,200 

If you wish to save time and avoid the 
nine-minute wait, add the following line 
to the above program: 

15 POKE 77,120 

This addition will start the count at 120 
and the color rotation will begin in about 
30 seconds. 

To defeat this timer (Which can be an- 
noying during a program using joysticks 
or paddles) insert a POKE 77,0 into the 
program where it will be executed 
frequently. 

Kenneth Parsons 
Linn Creek, MO 

Dear SoftSide, 

I have been a subscriber for over two 
years. I must agree with some others. I 
will not be renewing my subscription. The 
old format for the S-80 was more to my 
liking. 

I looked forward to each edition. That 
feeling has passed. 

J.J. O'Malley, Jr. 
Wilkes-Barre, PA 



Dear SoftSide, 

I appreciate the effort that Jon Voskuil 
has made to include information about 
the PEEK and POKE statements in his 
"Math Decathlon" program. I am using 
an S-80 Model 11 which doesn't have 
PEEK and POKE, but 1 can do most of 
the things with other methods if 1 know 
what the PEEK and POKE statements in 
a program are doing. I hope that more 
authors will give me this kind of help. 
Maybe someone who knows can write an 
article for you that will give more help in 
solving the PEEK/POKE problem for 
those of us who are using S-80 Model lis. 

I would also like some help on using the 
system calls on my Model II. 1 may have 
the necessary information in the manual, 
but so far I have not been able to figure 
how to use them. 

Donald M. Dealy 
Cumberland, RI 

Dear SoftSide, 

This letter is in response to a "human be- 
ing" who has stopped looking for other 
human beings. This person obviously 
does not understand a number of things. 

Before I get to them however, let me 
speak out for those of us who resent the 
idea that we are not considered HUMAN. 
SoftSide has to be one of the most human 
magazines around, along with being the 
single best for home or hobby computers. 

The first thing this reader should 
understand is that in the free enterprise 
system the guy with the best product 
makes the most money automatically. It is 
an insult to the intelligence of the con- 
sumer to imply anything else. Certainly he 
considers himself intelligent enough to be 
a cause of that. In other works, I bet he 
buys what he considers best. 

Second, if this reader understood even 
a little about the programs he reads in 
SoftSide, he would know that whatever 
computer a program is written for, it has 
an algorithm (a certain way) to solve a 
given problem. Which is the same for 
S-80s, Apples and IBM 370:165s. This 
fact increased the value of SoftSide four- 
fold. 

Third, Tandy should hope to reach half 
the income from computers that IBM has. 
Working in the computer industry, I 
know that, although phenomenal for 
three short years as a computer marketing 
company, Tandy has but a crumb of the 
microcomputer cake. 

Fourth, I think this reader should com- 
pare Tandy's software with the volumes 
of software written by others. He should 
be complaining about all the software 
written for CP/M systems not the S-80. 

Finally, I think you guys do a great job 
and us "humanoids" are behind you 
101 %. 

Larry Eiss 
Baldwinsville, NY 

Dear SoftSide, 

Just a short note to let you know that I 

continued on next page 
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OUTGOING 
MAIL 

by Dave Albert 

Hello, hello. It's that time again, I 
guess. Another look into the con- 
fused workings of SoftSide, courtesy 
of your friendly editors. The more I 
have to write this column, the more I 
realize the fractured nature of what 
needs to be said. It seems that the 
first order of business each month is 
to try to respond to some of the mail 
we receive, so let's get on with it. 

One of the more common com- 
plaints that we receive is that we 
don't publish Adventures for the Ap- 
ple and the Atari. It's a point well 
taken, but not easily resolved. As I've 
said here before, and undoubtedly 
will say again and again, SoftSide 
lives off of what our readers submit. 
And they don't submit Apple and 
Atari Adventures. We can't print 
what we don't get. So if all of you 
6502 owners out there would write 
some Adventures, the rest of you will 
see them in SoftSide soon enough. 

Another complaint we frequently 
hear is that we seem to favor the S-80 
over the Apple and Atari. (Boy, you 
Apple/ Atari owners sure are a 
vociferous bunch!) On the face of it, 
there's no arguing with that — it's 
true. We publish more S-80 programs 
than either of the other two. Yet 
recently we have published an article 
on how to make alterations to your 
Atari memory, and a series on pro- 
gramming ("Math Decathlon") writ- 
ten in Applesoft by our resident Ap- 
ple wizard, Jon Voskuil. Further- 
more, in this issue ("Hardware Cor- 
ner") there's a tip on how to fix a 
Macrotronics cable so that you can 
use an Epson MX-80 to print text 
with an Atari. These are articles and 
programs that we create ourselves in 
order to help out the Apple/ Atari 
folk. But the bottom line is that there 
are just a whole lot more people out 
there that own S-80s than Apples or 
Ataris, and they are certainly more 
prolific writers than Apple/ Atari 
owners. And once again, SoftSide 
lives on what is submitted. If it 
doesn't come in the mail, it never sees 
print. Perhaps the "primitive" S-80 
inspires people to write more, or 
maybe it's something else; but if we 
sort our mail into categories 
delimited by the type of computer it 
applies to, the vast majority of the 
S-80 mail is in the form of program 
continued on next page 
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Wargamer's delight 



Three from Potkin 

Warpath 



The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
shelter and obstacles. Favorite 

scenarios may be replayed. 

S-80 Level II, 16K cassette $14.95 

#26-KRGS2 



Kriegspiel II 

A much improved two-player version 
of the original. Kriegspiel II is a war- 
gamer's delight. Choose the number of 
mountains (up to 200)and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 

#26-WARP 



Up Periscope 

The author of the popular Kriegspiel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargame in- 
cludes sonar, depth charges, and 
torpedos. 

S-80 Level II, 16K cassette $14.95 

#26-UPER 




T5€:l-iPii^lD€ 

6 South SI . MiKord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258.1790 



INPUT continued from previous page 

am most pleased with the TEAC drive 
that I purchased from you at the N.Y. 
show. I realize that most people only 
write to complain but I am writing to 
praise you. The drive works beautifully 
and is much greater than my Shugart 400. 
The 40 tracks are nice too. No read data 
errors occurred so far (about 30 days). I 
was looking for a Percom or Pertec drive 
but this one I bought on your reputation 
entirely. I have not been disappointed. 

My only suggestion to you would be to 
publicize the brand (TEAC) as a producer 
of fine audio equipment and let the S-80 
world in on the quality/price of the their 
product. They are obviously newcomers 
to the hobby drive market and I would 
not have purchased it without your back- 
ing. I am a long-time subscriber to Soft- 
Side and Prog 80 as well. 

Keep up the fine work, I look forward 
to doing business with you in the future. 

Al Abrahamson 
Norwalk, CT 

Editor's Note: The drive referred to is 
marketed as "Hardside" drive. 

Dear SoftSide, 

Thank you for the sample copy of the 
new SoftSide. It seems to be of high quali- 
ty and must have taken much time and ex- 
pense to produce. 

I already get Creative, Kilabaud and 
Byte and would consider adding a "pure 
Apple" magazine to that list. I find the 
mixed (Apple, S-80, Atari, PET) format 
of SoftSide somewhat annoying since I 
must sift through for the Apple articles. 

I'm only submitting this as a construc- 
tive personal criticism and may not 
necessarily reflect the consensus. 

Good luck with SoftSide. I suspect you 
know this business much better than I do. 

Richard Steck 
Lake Forest, IL 

G 



OUTGOING MAIL 
continued from previous 
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or article submissions, while the Ap- 
ple and Atari mail seems to be pre- 
dominantly demands for programs 
rather than submissions. We still 
publish more BASIC software for 
those machines than any other 
magazine around, but that may end if 
you people don't get on the stick and 
write! 

Well, that's all for now. In the next 
issue or so you may notice more 
changes in the way SoftSide looks 
and reads. Please write and let us 
know how you feel about the maga- 
zine as it grows. Q 
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PASCAL -80" 



on your S-80™ 




Phelps Gates, the author of "APL-80", brings you "Pascal-80" for your S-80. Now 
you can add another dimension to your progrannming skills by using this fast version 
of the compiled language Pascal. 

"Pascal-80" is a powerful, structured and well-defined language for the S-80 
microcomputer. This easy-to-use language makes writing well-structured, and 
therefore easily understandable programs simple. "Pascal-80" supports most of the 
features of UCSD Pascal, including RECORD, SET (to 256 members), FILE (text and 
record oriented), n-dimensional ARRAY (and ARRAY of ARRAY, etc.), global GOTO, 
ELSE in CASE statements, and BCD arithmetic accurate to a full 14 places (including 
log and trig functions), 6-digit optional. "Pascal-80" features a 23600 byte workspace 
in 48K, a 1000 line per minute compiler, an easy-to-use text editor, and plain English 
error messages, all ttie features you would expect in a Pascal costing hundreds 
more. 

Variable Types: Boolean, integer, char, real, real6, and text. 

Constants: Maxint, minint, true, false, and pi. 

Files: Input, output, and Ip. 

Procedures: Read, readin, write, writein, reset, rewrite, close, seek, 

els, and poke. 
Functions: Abs, arctan, call, chr, cos, eof, eoln, exp, inkey. In, mem, 

odd, ord, peek, pred, round, sin, signif, sqr, sqrt, succ, and 

trunc. 

"Pascal-80" does not implement variant records, pointer and window variables, or 
functions and procedures used as parameters. 
S-80 32K Disk #26-i4iooid $99.95 
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THE RACE OF SORTS 



by Rik Karlsson 

Sorting is a primary in the pro- 
grammer's art. George Blank's arti- 
cle "Out of Sorts?" presented three 
sort subroutines that could easily be 
added to a BASIC programmer's 
programs. But, what about the 
relative efficiency of the sorts 
presented? Here is some illuminating 
information about the specific effi- 
ciencies of the three sorts that could 
help you in choosing one or another. 
George's generalized sort 
subroutine program was the jumping 
off point for my attempt to deter- 
mine what, if any, differences existed 
between the three sorts measured in 
the time needed to get the job done. 
The three sorts — Bubble, Ripple, 
and Shell-Walters all do the same 
thing. They take an array of data and 
alphabetize it A to Z or, in the case of 
numeric data, one to maximum 
number in the array. 

First I modified George's 
generalized program to do the timing 
for me. Figure 1 is the modified pro- 
gram. I added code to direct the out- 
put to a printer as well as to the 
screen. The test would take nearly 
five hours and I didn't rehsh taking 
down the information developed by 
hand! Second, I added code (hne 210) 
that initializes the real-time clock 
each time a sort sequence begins. 
After the sort routine finishes, a 
subroutine (lines 640-670) computes 
in total seconds, the length of time 
the sort has taken. The titles and data 
outputs to the screen were altered for 
my purposes because while George's 
excellent demonstrator programs 
depended upon screen output and 
formatting, thus Hmiting them to ten 
items, I wanted to sort arrays going 
up to 250 items. Last, I added a loop 
to the program that STEPped ten 
items per loop and caused the sorting 
of the same data by each of the sort 
subroutines. Now I was set to RUN 
my creation and check out those sort- 
ing efficiencies. 

Running the program causes a loop 
to be entered that starts with ten 
items in the A(F) array that are also 
duplicated in the B(F) "holding" ar- 
ray. The A(F) array is sorted by the 
Bubble sort first. The A(F) array is 
then reset to its original presort con- 
dition and the Ripple sort is per- 
formed, and so on through the Shell- 
continued on next page 



100 REM t THREE SCKTS x GETOE BLAi*( «12/2/80 

no REM X FROM FEBRUARY 1981 SOFTSIDE 

120 REM x LOOPED CCSfARE m LPRINT WDOS BY 

130 REM X RIK KARLSSON 02/15/81 

HO CLEAR200!LF'RINT;CLS:DIMA(250),B(250) 

150 forst=ioto250stepio:cls:n=st 

160 FORF=1TON 

170 A(F)=Ri«(99);B(F)=A(F) 

180 NEXTF 

190 1=1 

200 IFI<>1THE^F[M^=1T0N;A(F)=B(F) tNEXT 

210 F[lRF=lTO6:Pa(E«H10t0+F,0!NEXTF 

220 A»=TIME$ 

230 ON I G[)SUB270,380,500 

210 1=1+1 !IFI>3THEM.PRINT:NEXTST!E)« 

250 GOTO200 

260 REM X BUE8LE SWiT x 

270 PRINT061,"MiBLE SORT DBfflNSTRATOR";"(";N;"); 

280 LF'RINT"BUK1E S0RT"!"(";N!")"; 

290 F'R'INTei28,RIGHTt(A$,8)|:LPRINTRIGHTt(A$,8); 

300 FOR A=1TGN-1 

310 FOf®=A+lTON 

320 IF A(A) <=A(B)THEN 310 

330 T=A(A);A(A)=A<B)!A(B)=T 

310 NEXT B 

350 iCXT A 

360 A*=TIME$!T2$=A*:PRINT0192,RIGHT«(A*,8);:LF'RINT" "; 

RIGHT*(A«,8) I :GfBlES10:RETlRN 

370 REM X RIPPLE SCKT x 

380 PRINTI?320,"RIPF'LE SORT DEMONSTRATOR'T'C'IN;")"; 

390 lf'Rint"rpfi£ sort";"(";n;") "; 

100 PRINTI?381,RIGHT*(A$,8)!;LPRINTRIGHT*(A*,8),* 
110 FM^ C=1TON-1!FLAG=0 

120 f(k b=iton-c;a=b+i 
130 ifa(b)<=a(a)then 160 

HO FLAG =1 

150 T=A(A)!A(A)=A(B):A(B)=T 

160 NEXT B 

170 IF FLAG =lTHe*EXTC 

180 A$=TIME$;T2t=A*:PRINTei18,RIGHTt(A»,8);!LF'RINT" "', 

RIGt{T$(A$,8) ; tGOSlB610:RETURN 

190 REM X SHELL WAITERS x 

500 PRINT0576,"StCLL WALTERS SORT DEM(»<STRATOR";"(";n;") 

510 LPRINT "SHELLW sort";"(";n;") "; 

520 PRINTe610,RIGHT*(A»,8>|!LFiaNTRIGHT*(A*,8); 

530 C=N 

510 C=INT(C/3)+l 

550 F0RA=1T0N-C 

560 IFA(A)<=A(A+C)THEN610* 

570 T=A(A+C):B=A 

580 A(B+C)=A(B)!B=B-C 

590 IF E>0 THEN IF T<A(B) TI€N 580 

600 A(B+C)=T 

610 NEXT A 

620 IF OITHEN 510 

630 A$=TIME«!T2$=A$!F'RINT07O1,RIGHT»(A*,8);:LPRINT" "; 

RIGHT«(A$,B) ; :a)SUB61fl:RETURN 
610 REM X LENGTH OF TIME CMWTER SUBROUHIE x 
650 T2=VAL(MID*(T2$,13,2))x60:T2=T2+VAL(MID$(T2$,16,2); 
660 LPRINT" TOTAL TIME! ";T2 

670 m\m 

Figure 1 
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continued from previous page 

Walters. After the three sorts have 
been accomplished and their data 
printed out, the outside loop in- 
crements by an additional ten items 
and the process is started all over 
again. This sequence occurs through 
a grand sort of 250 items . 

Okay, what did I learn? Figures 2 
and 3 show the results of the run. The 
total time column is total seconds the 
sort took plus, of course, processing 
time for a few lines of code. Since 
each sort subroutine is coded iden- 
tically, that overhead processing time 
can be considered a constant between 
the three sorting routines. Thus, the 
relative magnitudes between the sorts 
can be directly compared with the 
assurance that the sort taking the 
least time would still take the least 



time if the timing and printing 
overhead processing code was 
removed. 

Results: The Shell- Walters sort 
beat the socks off the other two. The 
Ripple sort is a real time waster, 
showing up so at even the 20-30 item 
level. Beyond that, you could make a 
whole career out of waiting for it to 
complete a sort of a data base of any 
size. The Bubble sort is not much bet- 
ter, but would be the clear Sort-of- 
Choice were the Shell-Walters not 
around. 

What about the processing time 
per item? Figure 4 shows my com- 
putation of processing time per item. 
Notice that the Shell-Walters almost 
levels off at about .29 seconds per 
item at 130. From there up to 250 it 
"maxed out" at .32 seconds per item. 



The Bubble just kept on climbing 
each time reaching over 2.5 seconds 
per item at 250 items in the array. Old 
Mister Ripple outdid that perfor- 
mance on the negative side, scream- 
ing for altitude with a whopping 4.34 
seconds per item at 250. Wow! I 
guess Ripple can get you higher faster 
after all! 

The Shell-Walters sort is the 
hands-down winner in this contest. 
And that's the bottom line. BASIC 
programmers looking for a quicker 
sort should seriously consider dump- 
ing the Bubble sort for the Shell- 
Walters. Modifying present BASIC 
programs should be relatively easy 
using George Blank's February Soft- 
Side article... and after reading this, 
you've got plenty of reason to make 
the effort! 
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oo:o6:i3 


TOTAL HME: 373 


BUEiBLE SORT 
RIFfLE SORT 


( 70 ) 
( 70 ) 


00:00:00 
00:00:01 


00:00:56 
00:01:20 


TOTAL TM: 
TOTAL time: 


56 
80 


RIPFIE SORT ( 
SHELLW SORT ( 


190 ) 
190 ) 


00:00:00 
00:00:01 


00:10:11 
00:00:57 


TOTAL Hft: 611 
TOTAL time: 57 


SfCLLW SORT 


( 70 ) 


00:00:00 


00:00:16 


TOTAL time: 


16 


EDEiBLE SORT ( 


200 ) 


00:00:00 


oo:o6:56 


TOTAL TDC: 116 


BUESIE SORT 
RIPFIE SORT 


( 80 ) 
( 80 ) 


00:00:00 
00:00:00 


00:01:09 
00:01:19 


TOTAL time: 
TOTAL time: 


69 
109 


RIPFIE SORT ( 
Sm.LW SORT ( 


200 ) 
200 ) 


00:00:00 
00:00:00 


00:11:03 
oo:oot58 


TOTAL time: 663 
TOTAL TDt: 58 


Sm 1 W SORT 


( 80 ) 


00:00:00 


00:00:21 


TOTAL time: 


21 


BUBBLE SORT ( 


210 ) 


00:00:00 


00:07:11 


TOTAL TDC: 161 


EtEBLE SORT 


( 90 ) 


00:00:00 


00:01:31 


TOTAL HME: 


91 


RIPFIE SORT ( 


210 ) 


00:00:00 


00:12:27 


TOTAL time: 717 


RIF'FtE SORT 


( 90 ) 


00:00:00 


00:02:11 


TOTAL HME: 


131 


SHELLW SORT ( 


210 ) 


00:00:00 


oo:oi;o5 


TOTAL Tilt: 65 


S(€LLW SORT 


( 90 ) 


00:00:00 


00:00:21 


TOTAL TDC: 


21 












&Wi£ SORT 
RIFflE SORT 
SHR 1 H SORT 


( 100 ) 
( 100 ) 
C 100 ) 


00:00:00 
00:00:00 
Do;oo:oo 


00:01:52 
00:02:51 
00:00:25 


TOTAL time: 
TOTAL Tlft: 
TOTAL time: 


112 
171 
25 


EJ18LE SORT ( 
RIPFIE S(RT ( 
SHELLW SM<T ( 


220 ) 
220 ) 
220 ) 


00:00:00 
00:00:00 
00:00:00 


00:08:22 
00:13:11 
00:01:01 


TOTAL TBE: 502 
TOTAL TM: 821 
TOTAL time: 61 


Hm.E SORT 


( 110 ) 


00:00:00 


00:02:22 


TOTAL time: 


112 


BUE8LE sm ( 


230 ) 


00:00:00 


00:09:07 


TOTAL time: 517 


RIFflE SORT 


( 110 ) 


00:00:00 


00:03:33 


TOTAL time: 


213 


RIPPLE SORT ( 


230 ) 


00:00:00 


Do:i5:o6 


TOTAL TDC; 906 


sm 1 W SORT 


( 110 ) 


00:00:00 


00:00:30 


total tdc: 


30 


sm 1 W SORT ( 


230 ) 


00:00:00 


00:01:15 


TOTAL time: 75 


BUBBLE SORT 
RIPPLE SORT 
SHELIH SORT 


( 120 ) 
( 120 ) 
( 120 ) 


00:00:00 
00:00:00 
00:00:00 


00:02:12 
00:01:10 
00:00:30 


TOTAL time: 
TOTAL time: 
total TDt: 


162 
250 
30 


EUBBLE SORT ( 
RIPFIE SORT ( 
SfCLLW SORT ( 


210 ) 
210 ) 
210 ) 


00:00:00 
00:00:00 
00:00:00 


oo;o9:i9 
00:16:28 
00:01:17 


TOTAL TBC: 509 
TOTAL TM: 988 
TOTAL time: 77 


BUBBLE SORT 
RIFfLE SORT 
Sffl-LW SORT 


( 130 ) 
( 130 ) 
( 130 ) 


00:00:00 
00:00:00 
00:00:00 


00:03:11 
00:05:05 
00:00:38 


total tde: 

TOTAL time: 

total tbe: 


191 
305 
38 


BtI8LE S(KT ( 250 ) 
RIPFIE SORT ( 250 ) 
SHELLW SORT ( 250 ) 


00:00:00 
00:00:00 
00:00:00 


00:10:31 
00:18:01 
00:01:20 


TOTAL TKt: 631 
TOT^ time; 1081 
TOT(!y. Tift: 80 






Figure 2 












Figure 3 continued on next page 
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continued from previous page 


SECONDS PER ITEM 








#Items 


Bubble 


Ripple 


Shell-Walters 




10 


.20 


.20 


.10 




20 


.25 


.35 


.15 




30 


.37 


.53 


.17 




40 


.50 


.68 


.W 




50 


.58 


.74 


.20 




60 


.70 


.95 


.23 




70 


.80 


1.14 


.23 




80 


.86 


1.36 


.26 




90 


1.01 


1.46 


.23 




100 


1.12 


1.74 


.25 




110 


1.29 


1.94 


.27 




120 


1.35 


2.08 


.25 




130 


1.47 


2.35 


.29 




140 


1.57 


2.47 


.28 




150 


1.62 


2.63 


.31 




160 


1.72 


2.74 


.29 




170 


1.78 


2.94 


.31 




180 


1.89 


3.09 


.28 




190 


1.96 


3.23 


.30 




200 


2.08 


3.32 


.29 




210 


2.21 


3.56 


.31 




220 


2.28 


3.73 


.29 




230 


2.38 


3.94 


.33 




240 


2.45 


4.12 


.32 




250 


2.54 

Figure 4 


4.34 


.32 


e 




PC-1211 

Pocket Computer 




[oFn-foiT— "■" rp rn r^i rn rn i^ 
CO [w] [T] cj] dj [^ nh rh m rn 

[aD CD [Zl E3 CID IZ] Q ED rn mj 

CT]||3]|xiQCiI]IIE]CE]CEl [/^'™ i 



For Engineers, Scientists, Businessmen 

USE IT WHEREVER YOU GO - IN THE FIELD, CLASS, COMMUTING. 

Handy pocket size: 6 oz., 2 3/4x6 7/8 x 11/16" 

BASIC Language: Most of the features of the Level I TRS-80 microcomputer. Program capacity of 1424 steps. 

Editing Functions: Cursor shifting, Insertion, deletion, line up and down. 

Prerecorded Programs: A growing library of programs is available on cassette tape. Memory retains data and programs even with the power off. 

Includes: Hard case, long-ilte batteries. Instruction and Application manuals, BASIC textbook, two templates, and 90-day Sharp warranty. 

Special Introductory Price: $229.50 (Includes shipping) 

BRAND NEW! CE-122 Printer/Cassette Inteflace 

Use to load prerecorded software, store and save programs. Use to print out programs and calculation records. 

Size: 11 3/32 x 3 3/4 x 1 3/8" (same dimensions with PC-1211 Inserted) 

Printer: 16-digif, 1 line/second, standard paper 

Compatibility: completely compatible with TRS-80 Pocket Computer. 

Includes: Ni-Cd rechargeable battery, AC adapter, carrying case, and cassette cable. 

Price: $139.50 (Includes shipping) 



To order 
or 
for additional Information: 



Combination Price: (PC-1211 plus CE-122) $359.50 (includes shipping) 
Payment by Personal check. Master Charge, or VISA #. Massachusetts residents include 5% Sales Tax. 

Atlantic Northeabt Marketing, Inc. 

P.O. Box 921 Dept. SS61 

Marblehead, MA 01945 

617-839-0285 
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LasterCar^lpiaM 



l>ab()oftlnc. 



MICRO-PAINTER 

You will find your computer screen filled with specially 
designed patterns which you can fill with 21 vibrant colors in 
virtually unlinnited combinations. "Micro-Painter" challenges 
your imagination as you explore this newest dimension in com- 
puterized art. 
Apple II Disk #47-279001 D $34.95 

ATARI MAILING LIST 

A versatile disk-based system, with the efficiency of a micro 
format and capability equal to that of many larger computers. 
The "Atari Mailing List" will become an important facet cf an 
improved business system for you. 
Atari Disk #36-279002D $24.95 

lAGO 

"lago", Othello's antagonist, has returned. We are proud to 
present the classic Shakespearean challenger to Othello, 
"lago" incorporates one of the most powerful strategies ever 
written for computers. If you think you've played the best at 
Othello, wait until you meet "lago"! 

S-80 Disk #26-279003D $24.95 

S-80 Cassette #26-279003C $1 9.95 



TS€:IHP)RDSID€ 



6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 ■800-258-1 790 



HUNT/HUNTWRITER 

This is a first-of-its-kind program in which you design and 
define the game you would like to play. The only limitation is 
your imagination. This meta-game is used to write adventure 
games to your specifications. 
S-8016K Cassette, #26-277016C $19.95 




SPACE WARS 



'9HH 



This is a super-fast action Hi-Res game. Two players use 
paddles to manuever their ships into position in order to fire 
upon one another. 
Apple 1 1 1 6K Casette, #47-27701 5C $9.95 



FORTH 



P[°3@i 



m/^\ 



FLEET 

"Fleet" is an exciting battleship game. The object is to 
destroy all the ships in the sea in as few moves as possible. 
Atari 16K Cassette, #36-27701 8C $6.95 




CHASE 



A vocabulary-based threaded language that allows the user 
to tailor the system to meet a specific application. System in- 
cludes 200 predefined words, incremental assembler, text 
editor, block I/O buffers and much more. Comes with 50-page 
user manual. 
Apple II 32K Disk #47-277002D $49.95 

LISA ASSEMBLY Version 2.0 

"Lisa" is a totally interactive symbolic assembler. With all 
its features it is a powerful assembler for the Apple II. Sweet 
16 mnemonics, more commands, more psuedo opcodes and 
extended mnemonics are just some of its special features. 
Files may be saved as either binary type or text files. A 1000 
line program only takes three seconds to assemble and all er- 
ror messages are displayed in plain English, not just error 
codes. The program comes with a 144 page manual. 
Apple 1 1 48K Disk #47-277001 D $49.95 

SUPER STARWARS 



The object of this game is to escape. You are pursued by 
robots and you must make them run into mines to destroy them 
so you can get away. 
Atari 8K Cassette, #36-27701 7C $6.95 



This is an excellent Hi-Res game which starts you from 
hyper-space and moves you into normal space, where you try 
to destroy 32 Three-D Tie Fighters. 
Apple II 32K Cassette, #47-27701 4C $15.95 
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SYBEX 




6502 APPLICATIONS BOOK 

This second book m the 6502 series presents pratical, real- 
life application techniques for the 6502 microprocessor. 
Readers will learn how to interface the 6502 to the outside 
world in useful applications. Programs and circuits presented 
include a complete home alarm system (fire and intrusion), 
an electronic piano, a motor speed regulator, a time of day 
clock, and an appliance controller, as well as industrial ap- 
plications and analog-digital conversion. This book teaches 
all the basic skills needed to use the 6502 in practical applica- 
tions. This is the I/O book for the 6502. Elementary 
knowledge of programming is assumed. 
#65-2610086 $12.95 




6502 GAMES 

Games are fun and provide one of the best ways to learn 
advanced programming techniques. This book explains how 
to design and program all kinds of computer games ranging 
from the passive (music) to the strategic (tic-tac-toe). It 
presents algorithms and detailed programming techniques 
for ten types of computer games with the goal of sharpening 
skills and developing competence in Assembly Language pro- 
gramming so readers can design programs for original games 
and other applications. Each game section includes rules, in- 
structions for playing a typical game, algorithm(s) and a pro- 
gram (data structures, programming techniques, and detailed 
description). This the enjoyable way to learn Assembly 
Language programming. All games can be played with a SYM 
board and a single accessory games-board as described in the 
book. Elementary Assembly-level programming required. 
#65-2610076 $12.95 

50 PASCAL PROGRAMS 

This book contains a useful library of important programs, 
each fully documented and described, including the 
algorithm and specific programming techniques used to solve 
the problem. Programs are written in UCSD Pascal and cover 
a broad range of applications providing a learning tool for 
anyone interested in developing skills in Pascal program- 
ming. Assumes a basic knowledge of Pascal. 
#65-2610046 $13.95 

FIFTY BASIC EXERCISES 

This book is designed to teach BASIC through actual prac- 
tice. It presents graduated exercises in mathematics, 
business, operations research, games, and statistics. Each ex- 
ercise contains a statement and analysis of the problem, a 
solution with flowchart and comments, and a program im- 
plementing the solution, accompanied by sample runs. 
Besides allowing readers to check their understanding and 
progress while learning, this method teaches problem solving 
in a "top-down" manner: sub-problems are identified and 
solved separately, then combined into a modular program 
that's easy to read and modify. The book stresses program- 
ming style and the reasons behind each design decision. All 
programs ate written in Microsoft BASIC and will run on an 
S-80, PET/CBM, Apple or any other computer equipped with 
Microsoft 6ASIC. 
#65-2610033 $12.95 




INSIDE BASIC GAMES 



This book teaches the reader how to design error-free in- 
teractive BASIC programs including games and other real- 
time situations. Eight different kinds of computer games (a 
total of 14 games) are described in detail, then completely ex- 
plained and analyzed in order to illustrate how the games 
were designed and developed in BASIC. All facets of game 
program design, including program structuring, cursor posi- 
tioning, randomization and other concepts are discussed. 
Programs for games such as Hangman, Ten-Key Flicker, and 
Taxman are coded in Microsoft BASIC and versions are pro- 
vided for PET/CBM, Apple II, and S-80. Some knowledge of 
BASIC programming is assumed. 
#65-2610026 $13.95 



DON'T! (Or How to Care 
for Your Computer) 



This is exclusively dedicated to the care, preservation and 
correct operation of a small computer system: the computer 
itself, the CRT terminal, the printer, the magnetic disks and 
tapes — even the computer room. Most "computer failures" 
are caused by operator ignorance or negligence. In everyday 
language this book gives all the do's and don'ts of successful 
operation for each piece of computer hardware and soft- 
ware, including correct procedures for safety and security. It 
also tells what to do when something doesn't work. 
#65-261001 B $8.95 

PROGRAMMING THE 6502 

This first book in the 6502 series is an educational text 
designed to teach Assembly Language programming for the 
6502 microprocessor. From elementary concepts through ad- 
vanced data structures and program development, all essen- 
tial aspects of programming are explained in a logical format 
using everyday language. This systematic and clear presenta- 
tion, with exercises of increasing difficulty, builds program- 
ming skills to the point where the reader is able to understand 
and write 6502 programs of considerable complexity. The 
book is carefully designed for easy reading yet it is thorough 
and complete. All important aspects of programming are 
presented individually including trade-offs between hard- 
ware and software, a detailed explanation of each 6502 in- 
struction, and 6502s internal register and bus operation. 
#65-2610068 $12.95 




PROGRAMMING THE Z80 

This book covers the Z80, all the way from basic concepts 
to advanced programming techniques and will enable every 
reader to write complete application programs for a Z80 
based computer system. This progressive, highly organized 
presentation includes exercises to measure progress and com- 
prehension at each step, from hardware organization through 
data structures. Programming the Z80 treats all aspects of 
Z80 programming in a comprehensive yet simple way, start- 
ing by explaining the effect of each instruction and 
systematically working up to the development of all common 
type programs, from arithmetic utilities to parallel or serial 
input/output packages. 
#65-2610056 $14.95 
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Strategic Simulations 




Using 3-D graphics, the submarine commander gets a 
realistic view of the battlefield through the periscope, which 
must be used to sight and demolish the enemy convoy. The 
escort player must safely guide freighters through the waiting 
net of submarines. 

The thirty different WWII ships and subs are rated in strict 
adherence to historical accuracy. 
Apple II + 48K Disk, #47-219006D $59.95 



W 



Hayden Book Company. Inc. 



ff 



I 



Pr enti c e -H al 1 , Inc. 



V 



TRS-80 ASSEMBLY LANGUAGE 



Now for both the first-time user as well as experienced 
users of the S-80 microcomputer, here is a book that explains 
Assembly Language programming in a thorough, yet easy-to- 
understand style. TRS-80 Assembly Language contains all of 
the information you need in order to develop Machine 
Language programs. 

In this book you will find clear presentations of all in- 
troductory concepts in the use of the S-80, completely tested 
practical programs and subroutines, details of ROM, RAM, 
and disk operating systems, comprehensive tables, charts, 
appendices and much more! 
#65-280001 B $9.95 



TILSE 



ADDRESS BOOK 



BASIC BASIC: AN INTRODUCTION 
TO COMPUTER PROGRAMMING IN 
BASIC LANGUAGE, Second Edition 

Over TOO sample programs present the essential statements 
of BASIC. Each new language statement or capability is 
clearly explained at the time that it is first used in a sample 
program. Every section is followed by practice problems. In- 
cludes: writing a program; loops and lists; elementary data 
processing; strings and files; the quadratic function; and 
much more. 
#65-2100098 $10.50 

TRS-80 BEGINNER'S PROGRAMS 
WITH EXPLANATIONS 



Here's a valuable book of practical and interesting pro- 
grams for home use that can be understood and used im- 
mediately by the beginner in personal computer program- 
ming. You'll learn step-by-step how 21 sample TRS-80 pro- 
grams work. Program techniques are described line-by-line 
within the programs, and a unique Matri-Dex matrix index 
will enable you to locate other programs using the same 
BASIC commands and statements. Each program includes a 
detailed description, a complete listing, an explanation of 
what the program does, and instructions for modification. To 
help you understand the programs, photographs show how 
they will appear on the screen. 
#65-2100048 $7.95 




These two volumes provide a wealth of practical business ap- 
plications. Each program is documented with a description of 
its functions and operation, a listing in BASIC, a symbol table, 
sample data, and one or more samples. 

Volume 1 contains over 35 programs covering: budgets, 
depreciation, cash flow, property comparisons, accounts 
payable, order entry, etc. 

Volume 2 contains over 30 programs covering: marketing 
and sales planning and analysis for customer lists; customer 
call-back scheduling; salesman scheduling; personnel planning 
and analysis for personnel lists, employee time card recording; 
and more. 

Volume 1, #65-2100058 $9.95 

Volume 2, #65-2100068 $10.95 



A great mailing list program for the Apple! Store 700 ad- 
dresses per disk. Select by record contents for viewing, label 
printing, or automatic phone dialing. Quickly sort the file in 
any order. 
Apple II 48K Disk #47-2140040 $49 95 



FORM LETTER 



Major capabilities include automatic, repetitive printing of 
letters from mailing list records using the "Address Book" 
software; direct entry mode allowing individual printing of 
letters without permanent mailing list storage; insertion of 
mailing list information anywhere in a letter; on-screen 
prompts query operator for information to be inserted in in- 
dividual letters; and special "commands" allow changing 
content of individual letters depending on the recipient. 
Apple II or II -f 48K Disk #47-21 4003D $100.00 



^^A Mc 



OSBORNE 

A McGraw-Hill Company 




THE APPLE II USER'S GUIDE 

This guide is the key to unlocking the full power of the Ap- 
ple II Plus computer. Topics include: Applesoft and Integer 
BASIC programming — especially how to make the best use 
of Apple's sound, color, and graphics capabilities, and a 
thorough description of every BASIC statement, command, 
and function; Machine level programming — although not a 
Machine Language programming guide, this book covers the 
Machine Language Monitor in detail; Hardware features — 
the disk drive and printer are covered in separate chapters; 
Advanced programming — special sections describe high 
resolution graphics techniques and other advanced applica- 
tions. 
#65-255001 8 $1 5.00 
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TYPRINTER 221 (9-221) $2495.00 

NEC 5510 SpinWriter (9-5510) $2695.00 

NEC 5530 SpinWriter (9-5530) $2595.00 

© CENTRONICS 730 (9-730) $619.00 

CENTRONICS 737 (9-737) $729.00 

OKIDATA Microline-80 (9-80) $459.00 

(D OKIDATA Microline-82 (9-82) $649.00 

@ OKIDATA Microline-83 (9-83) $949.00 

OKIDATA SL300 (300 LPM) (9-SL300) $3795.00 

EPSON MX-70 (9-MX70) $419.00 

EPSON MX-80 (9-MX80) $519.00 

EPSON MX-80FT (9-MX80 FT)$619.00 




NEC Tractor-Feed Option (9-5000) $229,00 

BDT Sheet-Feeder (NEC only) Option(9-5005) $1849.00 
Microline-80 or 82 Tractor-feed Option (9-80-T) $59.00 
Centronics Zip-Pacl< Ribbons (3-pack) . (21-01) $15.95 
SpinWriter Multi-Strike Ribbons (3) . . , (21-02) $19.95 

Microline Printer Ribbon (3-pack) (21-04) $15.95 

EPSON Printer Ribbons (2-pack) (21-05) $29.95 





TS&IHPRDSID€ 



6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 




PICK SlOVft 
PftlNT€ft FftOM 
TS6«HAftDSID6 
TODASI! 




RS MOD-I Printer (36-pin) Int. Cable (26-141 1 ) $59.00 
RS MOD-I Printer (40-pin) Int. Cable (26-1416) $59.00 
RS MOD-I & III Printer (36-pin) Cable (26-1401) $29.00 
RS MOD-I & III Printer (40-pin) Cable (26-1415) $29.00 

RS MOD-I & III LRC Printer Cable (9-10) $29.00 

APPLE Parallel Int. & Cable (36-pin) . (47-936) $100.00 
APPLE Parallel Int. & Cable (40-pin) . (47-940) $100.00 
APPLE Asynchronous RS-232C Int (47-771 OA) $1 59.00 
ATARI-Macrotronics Print. (36-pin) lnt(36-936) $69.95 
ATARI-Macrotronics Print. (40-pin) lnt(36-940) $69.95 



TERMS: Prices and specitlcallons are subiecl to change. HARDSIDE accepts VISA & 
MASTERCARD. Certified cliecks and Money Orders: Personal ctiecks accepted (takes 3 
weeks to clear). HARDSiOE pays all shipping charges (within 48 states) on all PREPAID 
orders over $100.00. On all orders under $100.00 a $2.50 handling charge must be added. 
COD orders accepted (orders over $250 require 25% deposit) there Is a $5.00 handling 
charge. UPS Blue Label, Air Freight available at extra cost. 
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TSEHARDSIDE HAS IT ALL 
IN ONE! 

How many times have you wished that there was a single source for ^ 
your personal computer needs? Weil look no further, TSE- 
HARDSIDE, located in pleasant New Hampshire, has virtually every 
conceivable item for your micro. Whether you're shopping for your 
Apple, Pet, TRS-80™ or Atari, TSE-HARDSIDE has it all. We stock 
hardware, software, books, magazines and specialty items for all of 
the popular machines. So the next time you're out shopping for your 
system don't be surprised, be satisfied. Remember the name TSE- 
HARDSIDE as your choice for quality, service and reliability. 




T5€:IHPIR0SID€ 

6 South St , Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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APL 




by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power of 
this language is In Its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring 
matrix multiplication or other matrix problem solving that would require hours of programming time In BASIC are solved 
quickly and with minimal effort in APL. 

To aid In learning APL, lessons are Included on the disk. Starting from the basics, you are brought step by step through 
the various programming techniques involved with APL. These lessons act as a tutor which will have you "talking APL" In 
no time. Also available is the book, "APL: An Interactive Approach," which reinforces many of the examples given In the 
lessons and provides additional Insight Into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into cur- 
rent ones; Return to DOS for directory or commands without losing your workspace; Send output to llneprinter; Five 
workspaces of lessons included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy 
editing within FUNCTION lines; Latent expressions(FUNCTION can "come up running" when loaded); Tracing of function 
execution; Real-time clock; User-control of random link; Workspace Is 25587 bytes (in 48K machine); Arrays may have up to 
63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and assign, branch, catenate, celling, chr$/asc, circular, 
combinational, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, for- 
mat, grade down, grade up, greater, greater/equal, index generator, indexing. Index of. Inter product, label, less, less/equal, 
logarithm, maximum, member, minimum, multiple, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, 
quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, 
take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (&48K recommended) Includes APL-80, Five workshapes of lessons, in- 
struction manual. . . #26-apld $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 

Transpositions, format, and Inner product not implemented. Reduced domain for some functions, 6 digit accuracy. 
. . . »26APLT $1 4.95 on cassette 

LIMITATIONS 

Due to the absence of the special APL character set on the TRS-80 , APL.80 uses shifted letters to represent the various APL characters. In addition to the keyboard 
limitations, lamination, domino, and matria Inverse are not Implemented but can be derived with user-defined functions. Multiple specifications must be split Into 
two statements unless the left-hand assignment Is to a quad. This also applies to Implied multiple specifications. Reduction and reshape (p) are not permitted for 
empty arguments; the argument of add/drop may not be scalar; empty Indices are not permitted. A quad (q) can't be typed In response to a quad (nor can the name 
of a function which Itself gets Input from a quad). Quote-quad (m) Is permitted. No more than 32 user functions can be defined In a single workspace and a function 
may not contain more than 255 lines. 

A comment (o) must occupy a separate line: a comment can't follow a function statement on the same line. 
In the tape version, arrays are limited to five (5) dimensions. 




T5€;HflTO6ID€ 

6 South St .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1.800-258.1790 
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MATH DECATHLON 



Part 4 

by Jon Voskuil 

By now all you mathletes should be 
developing strong, healthy crania 
from all the mental gymnastics of the 
past three months. Not to mention 
strong, healthy phalanges from all 
the typing of the past three months. 
After entering this final installment, 
you will have a complete, 16,595-byte 
program to call your own. The last 
three of the ten events, plus the 
routine which plays the complete na- 
tional song of the winner, will finish 
you. . .er, will finish off the program. 
Again, let me mention that back 
issues are available if you have 
missed any of the first three in- 
stallments. (Cassette and disk 
subscribers have the complete pro- 
gram with this issue.) 

EVENT #8: MENTAL MATH 

After loading your existing pro- 
gram from tape or disk, and adding 
to lines 310 and 330 as indicated, 
you're ready for the eighth event. 
Here the computer starts you off with 
a number, and instructs you to do a 
series of calculations. Each instruc- 
tion is erased by the next one, so you 
have to keep track of the results in 
your head. Players at skill level 
must do four operations, and two 
more are added for each skill level 
increase. 

Including the starting number, 
then, there are up to nine numbers in- 
volved in the chain of calculations, 
which are stored in variables Nl 
through N9. These are chosen at ran- 
dom (within defined Hmits), and then 
simply incorporated into PRINT 
statements, in lines 8070-8180. The 
correct result is computed in 8200, 
and compared to the player's input. 
Note that N6 through N9 are initial- 
ized in 8070, so that if no other values 
are given to them (as happens at 
lower skill levels) they will not in- 
fluence the compmted answer. 

The length of time that each in- 
struction is displayed is controlled by 
Ml. Each successive timing loop is 
shorter than the previous one, 
decreasing more than two-thirds by 
the last instruction for level 2. If the 
overall timing seems too slow or too 
fast for you, simply adjust the value 
of Ml in line 8010. 



EVENT #9: PENNY BATTLE 

This is the only event in which the 
computer participates as something 
more than a scorekeeper. This is a 
variation of a very ancient type of 
game, where two people take turns 
picking up objects from a pile until 
only one is left. In this case one of the 
people is the Apple, and the pile is of 
pennies. The size of the pile, and the 
maximum number of pennies which 
may be removed at a time, are chosen 
by the computer in lines 9070-9100. 
These are always the same at level 0, 
but vary at the higher skill levels. 

The nature of this game is that the 
person who begins can always win, if 
he or she makes no mistakes. (Line 
9100 assures this.) The challenge of it 
is to discover a winning strategy, so 
I'm not too inclined to explain the 
computer's calculations in lines 9100 
and 9140-9160. I will say that Hne 
9160 introduces a random chance of 
error on the computer's part, giving 
the human player a chance even if the 
human doesn't play perfectly. 
Without this, one mistake would be 
fatal. If you want to increase the 
computer's errors, you can increase 
the quantity .4 in that Hne to a larger 
number. For example, increasing it to 
1 would make the computer play a 
completely random game at level 0, a 
half-random game at level 1, and a 
one-third-random game at level 2. 
Decreasing it to would eliminate 
random errors altogether. 

EVENT #10: BINARY NUMBERS 

The final event checks out the 
players on their understanding of 
binary numbers. Nothing terribly 
complicated, just binary-decimal 
conversion and (for more skilled 
players) binary addition. These exer- 
cises may seem to you to be anything 
from trivial to unfathomable, depen- 
ding upon prior exposure to the 



binary number system. (You can 
always hit 'ESC when the instruc- 
tions are displayed if you get too in- 
timidated.) 

The heart of the event is the 
decimal-to-binary conversion routine 
in Hues 10100-10140. This accepts as 
input the non-negative decimal in- 
teger DEC, and gives as output the 
string BINS, which contains the 
binary equivalent of DEC. The 
variable II is the number of binary 
digits which will be necessary to 
represent the decimal number. It 
starts as 1 in hne 10100, and is in- 
creased to the required number in line 
101 10. The loop in 10120-10140 
builds the string BINS bit by bit using 
Os and Is, and then returns control to 
the main program. 

The rest of the coding consists of 
three sections which display, respec- 
tively, 1) a binary-to-decimal conver- 
sion problem, 2) a decimal-to-binary 
conversion problem, and 3) a binary 
addition problem. Players at skill 
level get two passes at the first type 
and one at the second; other players 
get one problem of each type. Each 
section simply chooses a random 
number (or two), calls the conversion 
subroutine, and then presents the ap- 
propriate type of problem on the 
screen. 

You may wonder why, in scoring, 
the VALues of the binary strings are 
compared, rather than just compar- 
ing the strings directly. (Tell the 
truth, now — DID you wonder??) 
The reason is that this ehminates the 
significance of any spaces or leading 
zeroes that a player may have put in- 
to an answer. The strings "lOIO", 
"01010", and " 1010 " are all dif- 
ferent, but they all represent the same 
binary number; and the VALue func- 
tion will return the sanie quantity for 
each of them. 
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THE THRILL OF VICTORY 
AND THE AGONY OF DEFEAT 

The only task remaining is to find 
out who won and to play the song of 
the winning player. After a short, 
reverent pause in line 10800, Hues 
10810-10840 determine the high score 
for the ten combined events. Lines 
10850-10870 then check each player 
to see if the score equals that high 
score, and if so plays the song. (This 
takes first-place ties right in stride.) 
The subroutine which actually 
defines the tunes to be played starts 
at 10900, and operates in the same 
way as the one in 11160-11190 which 
you typed in two months ago. 

(You may recall my promise from 



previous months to include notes 
along the way to facilitate translation 
for other computers. I haven't 
forgotten that for these last two in- 
stallments; it's just that there has 
been very little in the coding which is 
unique to Applesoft. And the 
keywords that are unique, such as 
HOME, VTAB, and HTAB, have 
already been mentioned in prior 
months.) 

That's about if for "Math 
Decathlon". I was considering a 
Language Decathlon a while back, 
but never have gotten around to it. 
Maybe you'd want to try your hand 
at it? 

VARIABLES (Part 4) 
Bl$, B2$, B3$, BINS: Strings con- 



taining binary numbers. 
D: Used in binary-decimal conver- 
sion. 

Dl, D2, D3, DEC: Decimal 
numbers for binary conversion. 
HP: High points for the game. 
I, IL General loop variables. 
M, Ml; Timing loop counters. 
MAX: Maximum number of pen- 
nies which may be removed from 
stack. 

Nl$: Input string. 
N1-N9: Numbers used to generate 
Speed Math problems. 
NUM: Number of pennies in the 
pile. 

R: Temporary variable. 
TB: Tab position for printing. 
ZZ: Time delay loop variable. 



New lines to replace previous ones. 

310 E»(l) = "HISSING *";E$(2) = " 
GlESS A ♦";E»(3) = "SPEED W\ 

th";e*(1) = "stars";e*(5) = 

"L.C.D.":E*(6) = "MAGIC WR" 
!E»(7) = "CLOCK MATH":E»(8) = 
"NENTW. MATH";E»(9) = "PENNI 
ES":E*(10) = "BINARY #'5" 
330 EE$(6) = " 6. MAGIC SQUARES": 
EEt(7) = " 7. CLOCK MATH":EE 
*(8) = " 8. feiTAL MATH"!EE$ 

(9) = " 9. Pom eAnLE":EE$ 

(10) = "10. BINARY WJMBERS" 

Event »8: 

Mental Math 

Print instructions. 



E = 8:nxt = 
8010 Ml = 2000 
BOZO FOR p = 1 TO np: GOSUB 10 

8030 PRINT "IN THIS EVENT I MILL 
START BY GIVING YOUA NUMBER 
, Wfl) THEN GM YOU A SERIES 
OF MATHEMAHCM. OPERAHONS 
TO DO, (M AFTERTHE OTHER. 
THEN, I'LL ASK YOJ FOR THE 
tmSR," 
8010 PRINT ; PRINT "BEWARE!! I' 
LL START OUT SLOWLY, BUT 
THEN I'LL START SPEEDING UP, 
SO BE SW?E TO PAY ATTENHON 



805t 
8060 



GOSUe 90 

IF NXT THEN 9000 



Present a series of nathenatical 
operations, one step at a tine. 

8070 FDR PROS = 1 TO 3:N6 = 1:N7 
= 0'.N8 = fl:N9 = r.Nl = INT 
( RND (1) « 7) + S: HOME t VTAB 
10 J PRINT TAB( 9) "START MH 
H THE NUMBER "{Nl 
8488 FOR H = 1 TO Ml! NEXT MJN2 = 
INT ( RND (1) I 3 + 2) I 2*. 
HOME ! VTAB lOt PRINT TAB( 



H) "MULTIPLY BY "{N2 
8090 FOR M = 1 TO Ml X .9! NEXT 
M:N3 = INT ( RND (1) X 1 + 
2) X 2: HOME J VTAB lOJ PRINT 
TAB( 15)"a£;TRACT "',N3 
8100 FOR M = 1 TO Ml X .83: ftXT 

n',w\ = 2: Hwt : viae: lo: print 

TAB( 15) "DIVIDE BY "',m 
Bllfl FOR M = 1 TO Ml X ,75: fEXT 

M:N5 = INT ( RND (1) x 10) + 

5: HOME : VTAB 10 : PRINT TAB( 

17) "ADD ";N5 
8120 FOR M = 1 TO Ml X ,67: NEXT 

M: IF S(P) = THEN 8190 

Continue if skill level is 1 or 2. 
8130 N6 = INT ( Rfffi (1) x 2) + 2 

: Hott : VTAB lo: print tab( 

11)"MULTIPLY BY ";N6 
8H0 FOR M = 1 TO HI X ,59: (CXT 

M:N7 = INT ( RND (1) x 5) + 

5: HOME : VTAB 10! PRINT TAB( 

17)"ADD ";N7 
8150 FOR M = 1 TO HI X .50: NEXT 

H! IF S(P) = 1 THEN 8190 
Continue if skill level is 2. 

8160 N8 = INT ( RND (1) X 10) + 

3: mME : VTAB lo: prm tab( 

15)"SUBTRACT "im 
8170 FOR M = 1 TO Ml X ,V, fCXT 

M!N9 = 2! HOME : VTAB 10! PRINT 
TAB( H)"MULTIPLY BY ";N9 
8180 FOR M = 1 TO Ml X ,3! fCXT 

M 
Input and evaluate answer. 
8190 HOME ! VTAB 10! PRINT TAB( 

11)"THE ANSWER IS! "j: BfVT 

AN* 
8200 A2 = (((Nl X N2 - N3) / N1 + 

N5) X N6 + N7 - N8) X N9:PX = 

10! GOSUB 30 
8210 GOSUB lOO: NEXT PROB,P: GOSUB 
11000 

Event #9! 
Perfiy Battle 



Print instructions. 

9000 E = 9!NXT = 

9010 FOR P = 1 TO t«>! GOSUB 10 

9020 PRINT "IN THIS E^^T YOU AN 

D I WILL TAKE TIRNS (MOVING 
PEWOES FRW A STACK, AM) T 

HE ONE MHO PICKS UP THE LAS 

T PENNY LOSES." 
9030 PRINT ! PRINT "YOU MUST PIC 

K UP AT LEAST ONE PENNY ON 

EACH TURN, BUT NO MORE THAN 

THE MAXIMUM WHICH I'LL SPECI 

FY." 
9010 PRINT ! PRINT "I'LL GIVE YG 

U THE ADVWfTAGE BY LETTING 

YOU PICK UP FIRST." 
9150 GOSUB 90 
9060 F NXT THEN 10000 

Choose size of pile and Haxinun 
nunber which nay be renoved. 

9070 FOR PR06 = 1 TO 3!NUM = 23! 

MAX = 3 
9080 IF S(P) = 1 T1£N NUM = INT 

( RND (1) X 10 -f 20) 
9090 F S(P) = 2 THEN NUM = INT 

( RND (1) X 10 + 20):fWX = INT 

( RM) (1) X 1 + 3) 
9100 F NUM - INT (NUM / (MAX + 

D) X (MAX + 1) = 1 THEN 908 


9110 HOft ! VTAB 3! PRINT "VE'U. 
BEGIN WnH A STACK OF ";NUM 

?" PENNFS."! PRINT J PRINT 

"YOU MAY PICK UP FROM 1 TO " 

{MAX}" OF T1€M."! PRINT 

Take turns renovinq pennies until 
only one is left. 

9120 INPUT "YOU IfilfE HOW MANY? " 
JN1»:N1 = VAL (Nl*)! F Nl< 
1 OR Nl > MAX THEN 9120 

continued on next page 
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continued from previous page 


Subroutine to convert 3 deciHal 


10290 A2 = VAL (BIN*):PX = 10 : GUaJB 


9138 HUM = MIW - Nl! IF NUH = 1 THEN 


riunber into 3 binary minber. 


30 


PRIKT t PRINT "YOU WN, '",? 




10300 GOSUB 100 


L«(P)}"!":ra{P,E) =PZ(P,E) + 
10! GOTO 9190 


10100 n = ItBINi = ""!D = DEC 
10110 F D > 2 ^ 11 - n>€N n = 


Display binary addition problen. 


9H8 R = NUN - INT (NUM / (HAX + 
D) I (fWX + l);fC = R- 1 


n + 1$ GOTO 10110 
10120 FOR I = n - 1 TO STEP - 


10310 F S(P) = THEN IMOO 
10320 HOfC ! VTAB 1:DEC » INT ( 


9150 ffN2= -1THENN2 = HAX 


1*. F D > =2-^1 THEN BIN* 


RND (1) I 12 I S(P)) + 1 « 


9160 F ( RHD (1) I (S(P) + 1) < 


= BIN* + "r'tD = D - 2 " It 


s(P):di = dec: gosub ioim:b 


.1 «© NUM > = HAX I 2) OR 


GOTO 10110 


1* = BIN* 


N2 = fl THEN NZ = INT ( RND 
(1) I HAX + 1) 


10130 BIN* = BIN* + "0" 
IflHO NEXT It RETURN 


H330 DEC = INT ( ra© (1) « 12 X 

S(P)) + 1 X s(P):d2 ' dec: RoaiB 


9170 NUM = NUM - NZ: PRINT "I TAK 
E ";m"f LE/KWNC ";NUM{ F 
NUM= 1 THEN PRINT ! PRINT 


Display bin3ry-to-decitwl 
conversion problew. 


10100 :b2* = bin*:dec = di + 
d2: gosub 10100 :b3« » bin* 
10310 print "ado the follomdig t 


"I WIN! "J GOTO 9190 


19200 FOR PRUB = 1 TO 25 F S(P) 


NO BINARY NUHULKS, GIVING 




> THEN PROB = 2 


THE ANSWER AS ANOTtO BINARY 




10210 HOHE ! VTAB BtDEC = INT ( 


NUHbtk:": PRINT ! PRINT 


/ — ^^""^ / 


RND (1) « 12 I 2 A S(P)) + 






2 -^ (S(P) + 2) J GOSUB 10100 


10350 TB = LEN (Bl*) - LEN (B2* 

) 
10360 PRINT TAB( 18)B1*: PRM 

: PRINT TAB( 15)"+";: PRINT 
TAB( 18 + TB)B2*: PKINT TAB( 

15)" " 

10370 PRINT : PRINT : PRINT : INPUT 


r^— / / 


-^^^ 


^-^ (^r~~. 


fmt^ 1 


" YOUR w<sher: "\m\ print 




n /^m L 


: print 




L^Ji 


10380 A2 = VAL (B3«):PX « lO: GUSUB 

30 
10390 i^^lR 100 




/ ^W 




iy^iJi 


10100 tCXT P 


9180 HdNT 5 GOTO 9120 

9190 GOSUB 10«J iCn PR0B,P5 GOSUB 


X— — J^ 


10110 GOSUB 11000 


^3 / 


11000 


» 


End of Qa«e. Deternine hiqh score 
and play song of winning pl3\^r(s). 


Event *10: 






Binary NuMbers 




10800 FOR n = 1 TO 500! NEXT ZZ 


Print instructions. 


10220 PRINT "CONVERT TIC FOLLOW 




leOOO E = lOJNXT = 


NG BINARY NUMBER INTOA REGUL 


10810 HP = 


10010 FOR P = 1 TO W\ GUSUB 10 


AR DECIMAL MUMBtK5"5 PRINT ! 


10820 FOR P = 1 TO NP 


10020 PRINT "BINARY NUHbtRS ARE 


PRINT 5 PRINT TAe( 18)BIN» 


10830 F PX(P,0) > HP THEN HP = 


HRHTEN USING OM.Y THE DIG 




PZ(P,0) 


ns AND 1, INSTEAD OF THE 


10230 PRINT 5 PRINT : HTAB 11 J INPUT 


10810 NEXT P 


TEN DIGnS THAT ARE UStU IN 


"YOUR answer: "JAN* J PRINT J 


10850 FOR n = 1 TO fff> 


DECIHW. NUHbtKS." 


PRINT 


10860 F PZ(n,0) = Iff THEN GOSUB 


10030 PRINT "INSTEAD OF HAVING P 


10210 A2 = DECJPX = 105 GOSIB 30 


10900 


LACE WLUES OF I'S, Ifl'S, 1 


10250 lARiUB 100 : NEXT PROB 


10870 iCXT 11 


OO'S, ETC., BINARY NUHBtKS H 




10^0 mi 


AVE PLACE VALUES OF I'S, 2' 


Display deci«3l-to-bin3ry 


Subroutine to play conplete 


S, 4'S, 8'S, ETC." 


conversion problen. 


national song(5). 


IflOlO PRINT "THUS, THE BINARY NU 






MttK 1010 EQUALS TEN -ZERO 


10260 HOHE : VTAB BtDEC = INT ( 




I'S, PLUS Of£ 2, PLUS ZERO 1 


RND (1) X 12 « 2 '^ S(P)) + 


10900 F C(n) = 1 THEN SKF = 


'S, PLUS ONE 8." 


2 >- (S(P) + 2): GOSUB 10100 


:PLAY = 13 


10 050 PRINT 5 PRINT "IN THIS EVE 


10270 PRINT "CONVERT THE FOLLOHI 


10910 F C(n) = 2 THEN SKP = 1 


NT YOU MTl 1 m^ THREE PR(B- 


NG DECIHAL mtAH INTO A 


3:PLAY = 102 


LEHS DEALING WITH BINARY NU 


BINARY mf&ER\"\ PRINT ! PRINT 


10920 F C(n) = 3 THEN SKIP = 1 


l«ERS." 


J PRINT TAB( 19)DEC 


15:PLAY = 116 


ISOi&O GOSUB 90 


10280 PRINT : PRINT 5 HTAB 12: D#>UT 


10930 F C(n) = 1 THEN SKP = 2 


10070 F NXT THEN 10110 


"YOUR ANSJER: "{AN*: PRINT : 


61:PLAY = 53 


10080 GOTO 10200 


PRINT 


10910 GOSUB 13000: RETURN 
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QOrAPUGBAM 
FORYOSINm 

Attend the biggest public computer shows in the country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM, Wang, DEC, 
Xerox, Burroughs, Data General, Qantel, Nixdorf, NEC, Radio 
Shack, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
puter art, electronic gadgetry and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
^ pie who don't know a program from a memory disk. 

Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send $5 per person with the name of the show 
you will attend to National Computer Shows, 
824 Boylston Street. Chestnut Hill. Ivlass. 02167. 
Tel. 617 739 2000. Tickets can also be purchased 
at the show. 



DALLAS 
Dallas Market Hall 

2200STEMMONSFRWY 

AT INDUSTRIAL BLVD 

THURS-SUN 

APRIL 9-12 

10 AM TO 7 PM 



CHICAGO 
McCormick Place 

SCHOESSLINGHALL 
23RD& THE LAKE 

THURS-SUN 

SEPTEMBER 10-13 

10 AM TO 7 PM 



WASHINGTON, DC 
DC Armory/Starplex 

2001 E.CAPITOL ST SE 

(E CAP ST EXIT OFF 1295 

-KENILWORTHFRWY) 

ACROSS FROIVI RFK STADIUIVl 

THURS-SUN 

SEPTEMBER 24-27 

10 AM TO 7 PM 



BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCTOBER 15-18 

10 AM TO 7 PM 



ATLANTA 
Atlanta Civic Center 

395 PIEDIVlONT AVE NE AT 

RALPH McGILL BLVD 

THURS-SUN 

OCTOBER 29-NOVEMBER 1 

10 AM TO 7 PM 
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TWO EXCITENG GAMES 
F(»ITII£ APPLE n OR nphis 



ABM by Silas warner 

Invader and Asteroids move over . . . 
ABM has arrived! Command your 
launctn sites to fire 1 and 5 kiioton 
anti-ballistic missiles (ABMs). Save 
the East Coast from increasingly 
fierce Enemy nuclear attack. Posi- 
tion your target crosshairs to blast 
the green streamers before they fire- 
ball yourcities— or worse— split into 
multiple warhead IVllRVs turning the 
entire coast into a thundering 
specter of destruction. Hi-res color 
graphics, sound, high score to date 
memory, paddle or joystick control. 
On disk, requires Applesoft ROM, 
($24.95) 





GLOBAL WAR by alan boyd 

A challenging strategy game for 2 
to 9 players. Your War Room' fea- 
tures a detailed map of the earth 
plus territorial occupation status 
and invasion strategy displays. 
Players are assigned armies and 
territories and the war begins. The 
computer battle simulator calcu- 
lates the results of each invasion. 
Occupy all countries and you are 
the Winner! Games may be saved 
on disk to be continued later On 
disk, requires 48K and Applesoft 
ROM. ($24.95) cassette ($17.95) 



available now at your local conqniter store 



MiJSE 



SOFTWARE^ 



Apple II Is a trodemcvk of Apple 
ComputOfCcup 




.T5€dHPIR[>SI0€ 



6 South St .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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CALENDAR 



June 6 and 7 

APPLEFEST '81 

The Plaza Castle, Boston, MA 

Largest event in the world for Apple users. Exhibits applications, 

and seminar program. 

Contact: The Boston Computer Society's Apple User Group, 3 

Center Plaza, Boston, IVIA 02108 (617-367-8080). 

June 6-9 

The Atlantic Small Computer Show 

The Atlanta Hilton, Atlanta, GA 

Exhibits and programs. Producers of small computers, peripherals, 

supplies, and services will be exhibiting. 

Contact: Professional Exposition Development Corp., 4060 Janice 

Drive, Suite-CI , East Point, GA 30344 (404-767-9798). 

June 9-11 

Understanding and Using Computer Graphics 

Chicago, IL. 

Seminar covering the latest in graphics-system technology — 

hardware and software applications. 

Contact: Bob Sanzo, Frost & Sullivan Inc., 106 Fulton St., New 

York, NY 10038, (212-233-1080). 

June 14-18 

The Second National Conference of the National Computer Graphics 

Assoc. 

Demonstrations, exhibits, and workshops. 

Contact: National Computer Graphics Assoc, Inc., 2033 M. Street 

NW, Suite 330, Washington, DC 20036 (202-466-5895). 



June 16-18 
NEPCON East '81 
New York Coliseum, 



New York, NY 



Aimed at engineers, prototype developers, production specialists 
and testing personnel. Technical programs will be presented. 
Contact: Conference Management Inc., 222 W. Adams St. 
Chicago, IL 60606 (312-263-4866). 

June 17-19 

National Educational Computing Conference 

North Texas State University, Denton, TX 

Forum for individuals and institltutions interested in educational 

computing. Computer literacy, teacher-computer education, 

computers in education, etc. are topics covered. 

Contact: Dr. Jim Poirot, NECC-81 General Chairman, Computer 

Sciences Dept., North Texas State University, Denton, TX 76203 

June 20-22 

The Fifth Annual Computerfest 

Franklin University, Columbus, OH 

Talks on robots, calculators, microcomputers, and small business 

systems are presented. 

Contact: Computerfest '81, Paul Pittenger, 215 Delhi Ave., Apt. J, 

Columbus, OH 43202 (614-224-6237). 

June 24-26 

Computer Industry Trade Expo 

Atlantic City Convention Center, Atlantic City, N.J. 
Exhibits and conference program. 
Contact: C.W. Conference Management Group, 375 Cochituate 
Rd., Rt. 30, Framingham, MA 01701 (800-225-4698). 

June 29-July 1 

The Nineteenth Annual Meeting of the Association for 

Computational Liguistics 

Stanford University, Stanford, CA 

Computational semantics; discourse analysis and speech acts; 

speech analysis and synthesis, machine and machine aided 

translation; and mathematical foundations of computational 

linguistics are some of the topics to be discussed. 

Contact: Don Walker, Artificial Intelligence Center, SRI 

International, Menio Park, CA 94025 (415-326-6200) 




written by 

David Boike 
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MASTERS GOLF 



Enjoy two of your favorites 
without leaving home! 



: golf as a sport you can only play during the warmer half of the year? 
Now you can play it year 'round with MASTERS GOLF! For the Atari and the 
S-80, MASTERS GOLF promises hours and hours of delight. 

(S-80 version orijinaily published as "Protour GoH") 

S-80 Cassette #26-1 04004C $9.95 

Atari Cassette #36-104000 $9.95 




WORLD SERIES 

Ah yes, it's springtime and a young man's thoughts turn to. ..baseball? How 
would you Ilka a baseball season with no threats of player strikes or free agent 
negotiations that leave the shattered remnants of once-mighty teams strewn 
about the playing fields? We offer you your own league. Batter up! 

S-80 Cassette #26-104005C $9.95 

Atari Cassette #36-104005C $9.95 

Apple Cassette #47-1040050 $9.95 

Apple Disk #47-1040050 $14.95 

T5€:HflRDSID€ FJ 

6 South SI .Millord, NH 03055 (6031673-5144 [^^I^IST ^^^^H 

TOLL FREE OUT-OF-STATE 1.800-258-1790 [SgMi ^^ 
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HEXADECIMAL PUZZLE 



by George W. Ziegler, Jr. 

"Hexadecimal Puzzle" is an Apple 
program requiring Applesoft and 
16K RAM. 

It wasn't many years ago, that only 
the VERY elite few had ever heard 
the word "hexadecimal", let alone 
understood what a base- 16 number 
system was all about. Today it is 
becoming almost second nature for 
many who are involved in personal 
computing to represent numbers in 
hexadecimal form rather than in 
decimal. What could be more nat- 
ural, then, than a puzzle based on 
hexadecimal digits? 

For those who are relatively new to 
this whole thing and may not yet be 
among the elite, a brief word of ex- 
planation is in order. "Hexadec- 
imal", which is often shortened to 
"hex", comes from two words that 
mean "six" and "ten". A logical 
name for a base- 16 number system, 
no? Instead of 10 digits (0-9), the 
hexadecimal number system has 16: 
0-9, plus the "digits" A-F which 
represent the numbers 10 through 15. 

When you add a second digit, for 
representing numbers greater than 15 
(as you must do in the regular 



decimal system to represent numbers 
greater than nine), the higher-order 
digit then represents the "16's place" 
(rather than the lO's place as in 
decimal). So, for example, the hex 
number 2C represents two 16s plus 12 
(C) Is, or 44. Additional digits have 
place values of 256, 4096, and suc- 
cessively higher multiples of 16. 

You don't really have to under- 
stand hexadecimal place values, 
though, to enjoy this puzzle game — 
just the basic digits through F. At 
the beginning of the game you are 
confronted with a four-by-four 
square color graphics display of these 
digits, in random order, with a blank 
space in place of the F. The object is 
to move the digits adjacent to the 
blank space into that space, in such a 
manner as to rearrange all the digits 
into their proper order: 0-3 across the 
first row, 4-7 across the second, and 
so on, leaving the blank space at the 
bottom right. When you accomplish 
this, you will be rewarded with the 
appearance of the elusive sixteenth 
digit in its proper place, and an ac- 
count of the number of moves it took 
you to solve the puzzle. 

The current arrangement of the 
digits is stored in the computer's 



memory in array H(R,S). These posi- 
tions are translated into X, Y screen 
coordinates for use by the drawing 
subroutines in lines 698-715. If you 
try to move a digit that is not adja- 
cent to the open square, or try to 
enter a character that is not a hex- 
adecimal digit, you'll get a beep and 
an "illegal entry" message. During 
play, if you find yourself getting 
desperate with frustration, you can 
(a) kick the dog, (b) kick the com- 
puter, (c) hysterically press RESET, 
or (d) calmly press ESC. 



VARIABLES 

D$: Current hexadecimal digit. 
D: Decimal equivalent of current 
hexadecimal digit. 

H (*,*): Array representing arrange- 
ment of digits. 
I, J: Loop counters. 
N: Counter for number of moves. 
M$: General-purpose string input 
variable. 

R, S: Subscripts representing 
horizontal and vertical locations in 
the H array. 

X, Y: Horizontal and vertical screen 
locations. 



HEXfiDECIHflL PUZZLE 


19 VTAB 24: PRINT " (PRESS 


100 


VTAB 22: PRINT 'I'H CREATINB 




ANY KEY TO BEBIN)";: BET H$ 




YOUR RANDON PUZZLE NOH. . . 


Prograi Listing 






B 






no 


FOR D = TO 14 




Dratt the playing board. 


120 


LET R = INT ( RND (1) « 4 + 


Title and instructions. 






.5): LET S = INT ( RND (1) » 
4 + .5) 




20 CLEAR : HONE : TEXT 


130 


IF H(R,S) < > 15 THEN 120 


n HOHE : TEXT 


25 LET N = 


140 


LET H(R,S) = D 


12 VTAB 6: PRINT ' HEX 


30 BR : COLOR= 4 


170 


NEXT D 


ADECIHfiL PUZZLE" 


40 FOR I = TO 4: HLIN 7,31 AT 






13 PRINT : PRINT "BY S. H. ZIE6L 


I » 9: NEXT I 






ER, JR. APRIL 1981" 


50 FOR I = TO 4: VLIN 0,36 AT 


Check puzzle to see if it can be 


14 PRINT : PRINT : PRINT : PRINT 


7 + (6 » I): NEXT I 


solved. 


■THE OBJECT OF THE GAHE IS T 








Q HOVE EACH- 








15 PRINT "OF THE HEXADECIMAL DIB 


Initialize the array. 






ITS (0 TO E) INTO" 




172 


LET S = 


16 PRINT "THE BLANK SQUARE IN SU 




174 


FOR J = 1 TO 4: FOR I = 1 TO 


CH A MANNER AS TO' 


60 DIN H(5,5),HS(16) 

70 FOR J = 1 TO 4: FOR I = 1 TO 


176 


4 

LET HS((J - 1) J 4 M) = HI 


17 PRINT "REARRANGE THE DIBITS I 


4 




I, J) 


NTO ASCENDING' 


178 


NEXT I: NEXT J 


18 PRINT 'ORDER. IF YOU'ACCOHPL 


80 LET H(I,J) = 15 
90 NEXT I: NEXT J 


180 


FOR I = 1 TO 15: FOR J = I + 


ISH THIS THE ELU-"! PRINT "S 




1 TO 16 


IVE SIXTEENTH DIBIT (F) WILL 




182 


IF HS(I) > HS(J) THEN LET S 


APPEAR.": PRINT "TO END GAH 






= S + 1 


E AT ANY TINE HIT (ESC)." 


Generate a randoi puzzle. 


184 


NEXT J: NEXT I 
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186 IF HS(2) = 15 OR HS(4) = 15 OR 


370 


LET X = 8 + ((X - 1) 1 6): LET 


703 


COLOR= 0: HLIN 1 + X,3 + X AT 


HS(5) = 15 OR HS(7) = 15 OR 




Y = 1 + ((Y - 1) « 9): 60SUB 




1 + Y: PLOT 3 + X,2 + Y: PLOT 


HS(IO) = 15 OR HS(12) = 15 OR 




699: ON D + 1 60SUB 700,701, 




2 + X,3 + Y: VLIN 4 + Y,6 + 


HS(13) = 15 OR HS(15) = 15 THEN 




702,703,704,705,706,707,708, 




Y AT X + 3: HLIN 1 + X,2 + X 


LET S = S + 1 




709,710,711,712,713,714,715 




AT 6 + Y: RETURN 


188 LET HS(0) = INT (S / 2): IF 


380 


LET X = 8 + ((R - 1) « 6): LET 


704 


COLOR= 0: VLIN 1 + Y,3 + Y AT 


HS(0) t 2 < > S THEN 60T0 




Y = 1 + ((S - 1) « 9): 60SUB 




1 + X: PLOT 2 + X,3 + Y: VLIN 


20 


390 


698 

LET N = N + 1 




1 + Y,6 + Y AT 3 + X: RETURN 


Display puzzle on the screen. 






705 


COLOR= 0: HLIN 1 + X,3 + X AT 


190 HONE 








1 + Y: VLIN 2 + Y,3 + Y AT 1 


1 f V I lUI IIb 

200 FOR S = 1 TO 4: FOR R = 1 TO 


Check for solution. 




+ X: PLOT 2 + X,3 + Y: VLIN 


4: LET D = H(R,S): IF D = 16 








4 + Y,5 + Y AT 3 + X: HLIN 1 


THEN 206 


410 


FOR J = 1 TO 4: FOR I = 1 TO 




+ X,2 + X AT 6 + Y: RETURN 


202 LET X = 8 + UR - 1) t 6): LET 




4 






Y = 1 + ((S - 1) t 9) 


420 


IF H(I,J) < > ((4 1 (J - 1) 


706 


COLOR= 0: PLOT 2 + X,l + Y: VLIN 


204 IF D ( 15 THEN 60SUB 499: ON 




) + I - 1) THEN BQTO 210 




1 + Y,6 ♦ Y AT 1 + X: HLIH 2 


D + 1 GOSUB 700,701,702,703, 


430 


NEXT I: NEXT J 




M,3 + X AT 6 + Y: VLIN 3 + 


704,705,706,707,708,709,710, 


440 


LET X = 26: LET Y = 28: GOSUB 




Y,5 + Y AT 3 + X: PLOT 2 + X 


711,712,713,714,715 




699: 60SUB 715 




,3 + Y: RETURN 


206 NEXT R: NEXT S 


450 


VTAB 21: PRINT CHR* (7);" 
YOU MINI 


707 


COLOR= 0: HLIN 1 + X,3 + X AT 
1 + Y: VLIN 2 + Y,3 + Y AT 3 


Input a character and check for 




" 




+ X: PLOT 2 + X,4 + Y: VLIN 


legality. 


452 


PRINT ■ IT TOOK YOU 
■(N;" HOVES." 




5 + Y,6 + Y AT 1 + X: RETURN 


210 VTAB 21: PRINT " ENTER H 


455 


PRINT ■ ANOTHER 6AHE 


708 


COLOR= 0: PLOT 2 + X,l + Y: PLOT 


EX DIBIT FROM TO E : "j 




(Y OR N)? •;: BET H«: IF M 




1 + X,2 + Y: PLOT 3 + X,2 + 


212 BET D$: LET D = ASC (D$): IF 




= "Y" THEN GOTO 20 




Y: PLOT 2 + X,3 + Y: VLIN 4 + 


D = 27 THEN BQTO 500 


460 


IF H$ < > "N" THEN VTAB 24 




Y,5 + Y AT 1 ♦ X: VLIN 4 + Y 


215 IF D > 64 AND D < 70 THEN LET 




! HTAB 1: GOTO 455 




,5 + Y AT 3 + X: PLOT 2 + X, 


D = D - 48 - 7: BOTO 250 


500 


TEXT : HOME : VTAB 14: PRINT 




6 + Y: RETURN 


220 IF D > 47 AND D < 58 THEN LET 




GAME OVER": VTAB 






D = D - 48: BOTO 250 




24: END 


709 


COLOR= 0: VLIN 1 + Y,3 + Y AT 


230 PRINT CHR$ (7): BOTO 210 








1 + X: VLIN 1 + Y,6 + Y AT 3 




Subroutine to cl^ar box. 




+ X: PLOT 2 + X,l + Y: PLOT 


Find the character in the array. 








2 + X,3 t Y: PLOT 2 + X,6 + 
Y: RETURN 


250 PRINT : FOR S = 1 TO 4: FOR 


698 


COLQR= 0: FOR J = + Y TO 7 


710 


COLOR= 0! PLOT 2 + X,l + Y; VLIN 


R = 1 TO 4 




+ Y: HLIN + X,4 + X AT J: 




2 + Y,6 ♦ Y AT 1 + X: VLIN 2 


260 IF HiR,S) = D THEN BQTO 310 




NEXT J: RETURN 




+ Y,6 + Y AT 3 t X: PLOT 2 + 
X,4 + Y: RETURN 


270 NEXT R: NEXT S 


Subroutine to color-in box. 


711 


COLOR= 0: VLIN 1 + Y,6 + Y AT 










1 + X: PLOT 2 + X,l + Y: PLOT 










3 + X,2 + Y: PLOT 2 + X,3 + 


Check for eipty adjacent square, 


699 


C0LOR= 9: FOR J = + Y TO 7 
+ Y: HLIN + X,4 + X AT J: 
NEXT J: RETURN 




Y: VLIN 4 + Y,5 + Y AT 3 + X 
: PLOT 2 + X,6 + Y: RETURN 


310 IF H(R - 1,S) = 15 THEN X = 










R - 1:Y = S: GOTO 360 


Subroutines to print digits 


712 


COLOR= 0: HLIN 1 + X,3 + X AT 


320 IF H(R + 1,3) = 15 THEN X = 


through E. 




1 + Y: VLIN 2 + Y,5 + Y AT 1 


R + ItY = Si GOTO 360 








+ X: HLIH 1 + X,3 + X AT 6 + 


325 IF H(R,S - 1) = 15 THEN X = 


700 


COLOR= 0: PLOT 2 + X,l + Y: VLIN 




Y: RETURN 


R;Y = S - 1: GOTO 360 




2 ♦ Y,5 + Y AT 1 + X: VLIN 2 


713 


COLOR= 0; VLIN 1 + Y,6 + Y AT 


330 IF H(R,S + 1) = 15 THEN X = 




+ Y,5 + Y AT 3 + X: PLOT 2 + 




1 + X: PLOT 2 + X,l + Y: VLIN 


R:Y = S + 1: GOTO 360 




X,6 + Y: RETURN 




2 + Y,5 + Y AT 3 t X: PLOT 2 


340 HONE : VTAB 21: PRINT ' 


701 


COLOR= 0: PLOT 1 + X,2 + Y: VLIN 




+ X,6 + Y: RETURN 


ILLEGAL HOVE - REENTER: "; 




1 + Y,5 + Y AT 2 + X: HLIN 1 


714 


COLOR= 0: HLIN 1 + X,3 + X AT 


CHR$ (7)|: BOTO 212 




+ X,3 + X AT 6 + Y: RETURN 




1 + Y: VLIN 2 + Y,5 + Y AT 1 
+ X: HLIN 1 + X,3 + X AT 6 + 


Move character to net* location and 


702 


COLOR= 0: PLOT 2 + X,l + Y: PLOT 




Y: PLOT 2 + X,3 + Y; RETURN 


clear old location. 




1 + X,2 + Y: PLOT 3 + X,2 + 










Y: PLOT 3 + X,3 + Y: PLOT 2 + 


715 


COLQR= 0; HLIN 1 + X,3 + X AT 


360 LET H(X,Y) = D: LET H(R,S) = 




X,4 + Y: PLOT 1 + X,5 + Y: HLIN 




1 + Y: VLIN 2 + Y,6 + Y AT 1 


15 




1 + X,3 + X AT 6 + Y: RETURN 




*■ X: PLOT 2 + X,3 + Y; RETURN ^ 
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MAZE SEARCH 



Translated by Carl Mueller from 
David Bohlke's Atari original. 

"Maze Search" requires Apple In- 
teger BASIC with Programmer's Aid 
ROM Chip and 16K RAM. 



Those of us who don't own Ataris 
have been missing out on a good 
game ever since "Maze Search" ap- 
peared last August in SoftSide. Now 
Apple owners can also be challenged 
by this original game. 

The game is different from other 
maze games in that your object is not 
to begin at one place in the maze and 
work your way through to another 
place. Rather, you accumulate points 
by capturing blocks which are placed 
at random locations within the cor- 
ridors. The computer first generates a 
random maze on the full low- 
resolution graphics screen, and then 
places 48 blocks within it. You are 
placed in the middle of the maze, and 
must travel through the passageways 
capturing blocks. Each time a block 
is captured (run over) it is added to 
your pile at the left side of the screen. 



Meanwhile, on the right side of the 
screen, a growing line marks the time 
elapsed in the game. You'll find it 
VERY difficult to capture all 48 
blocks in the allotted time, especially 
since each section of the maze has on- 
ly one opening onto the outer cor- 
ridor. You've really got to keep mov- 
ing to get a good score. 

You make your moves by using the 
I, J, K, and M keys for up, left, right, 
and down. (These are the same keys 
used for screen editing in Applesoft.) 
You can also use the REPT key along 
with one of these four, to cover 
distances quickly in any given direc- 
tion. After the time is up (or, wonder 
of wonders, you capture all 48 
blocks), pressing RETURN will start 
another game. RETURN will also in- 
terrupt the drawing of a maze, or a 
game in progress. 

Incidentally, the program as writ- 
ten makes use of the built-in sound 
routines in the Programmer's Aid #1 
ROM chip. You probably have this 
chip, unless you have an early Apple. 
But if you don't, your program will 
crash at the first "CALL-10473", in 
line 290. In this event, you must 



either eliminate those CALLs and do 
without sound, or add a short 
Machine Language sound routine 
such as the one used in "Math 
Decathlon" or other programs. 
Then, instead of POKEing the pitch 
and length of the note into addresses 
767 and 766, and CALLing -10473, 
you would use the addresses ap- 
propriate to your added routine. 



VARIABLES 

C: Counter used in generating maze. 
C(*): Array of color numbers. 
CT: Elapsed time counter. 
DX, DY: X and Y directions (1, 0, or 

-1). 

H: Horizontal coordinate. 

H(*): Array used in generating maze. 

HT: Number of blocks captured. 

I: Loop variable. 

S: ASCII value of keyboard input 

character. 

V: Vertical coordinate. 

V(*): Array used in generating maze. 

X, Y: Position coordinates. 

Z: Color of screen at a particular 

point. 



Initial izat ion. 


Loop to construct naze. 


320 x=41(C):y=v(C):c=c-i 

330 IF C=8 then 350 


POKE 765,32 


170 IF SCRN(X+2,Y)=0 THEN 220 


310 GOTO 170 


1 POKE 201, PEEK (71)5 POKE 205 


180 IF SCRN(X-Z,Y)=0 THEN 220 




, PEEK (75)5 GOTO 100 






Y 1 ^^i* *¥ ** * * **i* I ** A ir V 


190 IF SCRN(X,Y+2)=0 THEN 228 
200 IF SCRN(X,Y-2)=0 THEN 228 


Plot raTKiow blocks within Haze. 


Subroutines to change location 


210 GOTO 320 


350 POKE 201, PEEK (71): POKE 205 


coordinates. 




, PEEK (75) 




220 GOTO 230+ RND (DUO 


360 H=19:V=23 


10 Y=y-1! RETURN 


230 dx=-i:dy=o: goto 270 




11 X=X-i: RETURN 


210 DX=fl:DY=i: GOTO 270 


370 DIM C(1):C(0)=13:C(1)=ll 


12 X=X+1! RETURN 




380 C(3)=l 


13 RETURN 


250 dx=i:dy=o: goto 270 




H Y=Y+i: RETURN 


268 ox=o:dy=-i 


390 C(2)=6: C0LQR=C(2): PLOT H, 




270 F SCRN(X+0XI2,Y+DYX2) THEN 


V 


Initialize full-screen graphics, 


220 


100 C(l)=12: FOR 1=1 TO 18: WISIH 


draw border, dinension variables. 


280 PLOT X-H)X,Y+DY: PLOT X+0Xx2 


590: NEXT i: POKE -16368,8 


100 POKE -16302,0: POKE -16301, 


,Y+DYi2 


Check for keypress. If RETURN, 


O: CALL -1998 


290 POKE 767,X/2+Y/2+i: CALL -10173 


start over: if I, J, M, or K then 


111 POKE 766,2 




nove in appropriate direction. 


130 CX0R=12: HLIN 1,36 AT 05 VLIN 






0,16 AT 36: HLIN 1,36 AT 16 


300 IF PEEK (-16381X128 THEN 310 




; W.IW 0,16 AT 1 


: POKE -16368,0: IF PEEK (- 


110 S= PEEK (-16381): IF S<128 THEN 


110 DIHH(60fl),V(6flO) 
150 C=fl:X=20:Y=21 


16381 )=13 THEN 1 

310 x=x+dxi2:y=y+oyi2:c=c+i:h(C) 


530 
120 POKE -16368,0: F S=111 THEN 


160 PLOT X,Y 

- 


■=x:v(C)=y: goto i7fl 


1 
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130 F S<201 OR S>Z05 THEN 530 

m x=h:y=v: gosub s-19i 

'^so coLOR=c(0): PLOT H,v:z= scra)( 

X,Y) 



If can't nove in that direction» 
skip rtove/score section. 

160 F Z=C(1) T}€H 520 



If block captured, Make soijnd and 
plot scoring block. 



170 IF Z*C(3) THEN 180;HT=HT+1: 

POKE 766,3t fOR 1=1 TO 20 : 

POKE 747,1+30: CALL -10173 

! NEH i: F HT=18 THEN 550 



180 F HT=0 THEN 510 
190 C0L0R=C(3)! IF HT ifflO 2=0 T}£N 
PLOT 1,17-HT 

500 IF HT HOD 2 Th£N PLOT 2,17- 

HT 
510 H=X!V=Y 



Plot current position. 
520 C0L0R=C(2)J PLOT H,V 
Add to tiwer. 

530 CT=CT+2; COL0R=C(2)J HLIN 38 
,39 AT 14-CT/lOO: F CK1600 
TfCN 510: HLIN 38,39 AT Ot 
GOTO 550 

510 POKE 766,i: POKE 767,H/2+V/ 
2+1 J CALL -10173: GOTO 110 

Tine is iv, or all blocks captured. 

550 POKE -16368,0 

560 F PEEK (-16381)»111 THEN 580 

570 POKE -16368,0: GOTO 1 
580 POKE 766,2: POKE 767, RND ( 
18)+i: CALL -10173: GOTO 560 



Subroutine to plot a randon block. 

590 COL0R=C(3):X= RND (16)i2+5: 

Y= RW) (23)12+1 
600 IF SCRN(X,Y) THEN 590 
610 PLOT X,Y: RETl«N Q 



APPLE ONE LINERS 

Applesoft 
1 S$ = "2021380322112130110001920 
16216011016192096": FOR I = 
TO 13: POf(E 800 + I, VAL ( 
MID$ (S$,3 I I + 1,3)): NEXT 
: HGR : HOME : VTAE 22: HTAE: 
10 : PRINT "HIT ANY KEY TO OU 
H": CALL 800: TEXT : HOME 

Jerry Dubnoff 
Newton, MA 

Applesoft 
1 to : POKE - 16302, 0: FOR I = 
TO 3E6: HCOLOR= 7',X = INT 
( RND (1) I 212) + 15;Y = INT 
( RND (1) I 162) + 15:R = 6 + 
RM) (I) I 8: FOR J = TO 6 
.28318 SFP .2: HFIOT SIN ( 

J) X R + X, COS (J) X R + y; 

fEXT J,I 

Peter Olszowka 
& Hank Neeman 

Applesoft 

1 a< : F»' T = 1 TO ioooo:a = o: 

B = 39; FOR' I = TO 39: COLOR= 
M) (1) X 16: HLIN A,B AT I 
: VLIN A,B AT i: HLIN A,B AT 
39 - i: VLF) A,B AT 39 - I:A 

= A + i:b = B - i: NEXT : next 

Kenneth Baker 
Meridian, ID 
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From 



The Programmers Guild 



In a desperate race against the sun you 
search for SMAEGOR Monarch of Dragon- 
folk, who has kidnapped the Princess of the 
Realm and holds her in a distant and 
imknown place. In a quest for honor and 
glory, you must search the land, seeking out 
the tools needed for the ultimate confronta- 
tion. On the river delta, in the abandoned 
Temple of Baathteski, Goddess of the Blade, 
everywhere, clues abound. But WHERE is 
the Princess? 

Now, as never before, the genius of 
CHARLES FORSYTHE shines in this new 
Machine Language ADVENTURE. 
DRAGONQUEST! Can YOU .save M'lady 
from the iron clutches of SMAEGOR? 

S-80 Level II I6K Cassette #26-2210011 ... $15.95 
S-80 32K Disk #26-2210010 $21 .95 



TStl-WTOSIIX 

6 Soulh St MiHord. NH 03055 (60.11673-5144 
TOLL FREE OUT-OF STATE 1 800 258 1790 
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COMPUTER GRAPHICS 



Variation in Pattern Generation 
Part 1 

by Joan R. Truckenbrod 

Regular patterns are created by 
repeating a figure at equal intervals, 
in a series of parallel horizontal or 
vertical rows, as discussed and il- 
lustrated in the May issue of Soft- 
Side. These regular patterns were 
created by placing a figure in each 
box of a square grid, similar to graph 
paper. The use of the computer as an 
aid in creating patterns allows the 
designer or artist to introduce dif- 
ferent types of variation into the pat- 
tern program to create different pat- 
terns. In creating patterns in this 
manner, two basic elements can be 
varied simultaneously or in- 
dependently to change the character 
of a pattern. These two elements are 
the ordering system of the pattern or 
the underlying grid Hke the graph 
paper, and the design of the original 
figure or pattern element. This article 
and my next one will illustrate 
various ways to change the underly- 
ing grid or ordering structure in order 
to create new patterns. Variation in 
the character of the pattern element 
will be discussed in future issues. 

The grid underlying a pattern can 
be varied in many ways as the squares 
in the grid can be juxtaposed in 
numerous positions. A checkerboard 
pattern is one example in which every 
other square is deleted. Alternate 
squares on the grid can be shifted up, 
down, left, right or moved on a 
diagonal. These modified grids are 
used to create varied patterns as a 
figure is drawn in each invisible 
square in the grid. Various visual ef- 
fects can be created by using 
modified grids for generating pat- 
terns. The two grids shown here are 
examples of variations that can be 
developed in the underlying grids. 
The first grid shifts alternate squares 
a half unit vertically or horizontally 
to create clusters of figures around 
small empty squares. The second grid 
has overlapping squares. Each square 
overlaps the corners of two other 
squares. This second grid creates 
strong diagonal sets of figures in the 
pattern. Use of different figures will 
create dynamically different patterns 
as is illustrated by the range of pat- 
terns shown here, each created with 
its respective grid. 

The graphics programs used to 
30 



create these two sets of patterns are 
very similar to the original pattern- 
generation program listed in the May 
issue. Changes are made in this 
original program to accommodate 
the different starting points for the 
figures in different rows, and the dif- 
ference in incremental values 
throughout the pattern. In each of 
these examples, the pattern is con- 
structed in sets of four rows. The 
beginning point for each row in this 
set is different so the starting value 
for each row is kept in the S4 array. 
An independent counter L is used to 
step through this array as the main 
loops in the program are used to con- 
struct and repeat each horizontal 
row. The S4 array is dimensioned in 



line 11 with the values assigned in 
READ and DATA statements in lines 
12 and 13. The counter L is set to 1 in 
line 85, and incremented and tested in 
lines 192 through 194. In addition, 
the HPLOT statements in lines 140 
and 170 are changed in each pattern 
variation program because the X and 
Y coordinate values defining the 
figure are incremented differently ac- 
cording to the specific arrangement 
of the squares in the underlying grid. 
These incremental values can be 
figured out by drawing the desired 
grid on graph paper and calculating 
the increments necessary to create the 
pattern. Additional pattern varia- 
tions, with the programs, will be il- 
lustrated in the next issue. 



PATTERN GENERATION PROGRAM 

Option 1 

3 riEn PhTTESN GENERATION PROGRAM 

o riEri OPTION 1 

/ RErt BY JOflN R. TRUCKENBROD 

10 REfl 34 ARkAi' STORES THE STARTING POINT FOR EACIH LINE 

11 DIM S«5) 

12 FDR I = 1 TO 5: READ 34(1)! NEXT I 

13 DATA 20.-0!30flC'F40 
20 DIM XC50),Y(30) 

iO REii NP = NUMBER OF POINTS IN THE FIGURE 

40 NP = 5 

50 FOR I = 1 TO NP 

60 READ X(I).Y(I) 

70 NEXT I 

ao DATA OjO»20F0.20;20rOi20»0.0 

a4 REM L IS THE COUNTER FOR THE -34 ARRAY 

35 L = 1 

36 HGR2 : HCOLOR= 3 

90 REM THE R LOOP KEEPS COUNT OF THE VERTICAL ROU NUMBER 
100 FOR R = TO 16 

REM THE B LOOP KEEPS COUNT OF THE HORIZONTAL COLUMN NUMBER 

FOR B = TO 4 

REM MOVE THE FEN TO THE FI.RST ?QINT IN THE FIGURE 

HPLOT X(l) + S4(L) t B * 50fY(l; + R * 10 

REM THE FOLLOWING LOOP CONNECTS THE REMAINING POINTS IN THE FIGURE, 

FOR P = 2 TO NP 

TO X(P) -i- S4(L) + S :^t 50,Y(P) + R * 10 



110 
120 
130 
140 
150 
160 
170 
130 
IVO 
191 
192 L 



HPLOT 
NEXT P 
NEXT B 
REM L 
L + 



193 IF L 

194 L = 1 
200 NEXT R 
210 END 



IS THE COUNTER FOR THE S4 ARRAY 

1 

6 THEN GOTO 200 



Option 2 



CHANGE THE FOLLOWING LINES IN THE ORIGINAL PROGRAM 



li DIM S4(5) 

12 FOR I = 1 TO +: READ 34( I ); 

13 DA I A 20Tl0.0r30 



NEXT I 



130 REM MQOE THE PEN TO THE FIRST POINT IN THE FIGURE 

1+0 HPLOT X(l) t 34(L) + 8 * 40.Y(1) + R ■* 10 

150 REM THE FOLLOWING LOOP CONNECTS THE REMAINING JOINTS IN THE -TQiip; 

loO FOR P = 2 TO NP 

1/0 HPLOT TO X(P) + 34<L) + B * 40.Y(P> + R * 10 



?2 L = L + 1 

'i IF L :. 5 

-♦ L = I 



rHEN 



)T:j 



continued on next page 
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Atari One Liners 

1 DE6 sBRAPHICS 23:P0KE 708,RND(l)t25 
5:F0R L=0 TO SiOsCOLDR imUDtZ'.PLQ 
T 80,48:DRflKT0 80+(47«SIN(L)),48+(4it 
-COS(L)l:NEU L:RUN 

David Simmons 
Redondo Beacli, CA 



GRAPHICS 18:P0SITI0N 3,4:? t&;'NS] 
FUTURE BAND":FOR X=10000 TO STEP 

-1.5:SGUND 0,0,8,X:POKE 708,INT(RND( 
0)t222):NEXT X 

John Niem and Zvl Arifin 
Hong Kong 

1 GRAPHICS 23:C=INT(RHD(0)»8)!C=C+(C 
=0):COLOR C:FOR.Y=0 TO 95 STEP C:PLO 
T 0,Y:DRA«TO 39,95-Y:DRAHT0 79,Y!DRA 
KTO 119,95-YsDRAIITO 159,YjNEn Y:RUN 

Lynn Wallace 
Rapid City, SD 

1 CLR : GRAPHICS 8^U:SETC0L0R 2,0,0: 
FOR 1=1 TO 48:PL0T X,Y:DRAIITO X,19l- 
Y:DRANTQ 319-X,I91-Y:DRA«TQ 319-X,Y: 
DRANTO X,Y:X=X+5:Y=Y+4:MEXT I:60T0 1 

Pcry Pearson 
Modesto, CA 




recordings 



duplicating service 



307 West Main Street 
Maple Stiade, NJ 08052 

(609) 667-1667 



O • AMP "Data-settle" blank 
cassettes for digital use 

© • Cassette Storage Boxes 

• Cassette Labels 

Custom printing & blank 

©•Custom Record Album 

production from your tapes 

© •Stereo and Spoken Word 
cassette duplication 

Call or write to: 




for more Information. 



All cassette work at 
AMPR.&D. is custom work 
to fit your needs. 
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MUSI-KEYS INPUT ROUTINE 



by Jon Voskuil 

Here is a short routine that you can 
use in any Applesoft program to add 
a Httle interest when the user needs to 
enter information from the key- 
board. Its effect is simply to play a 
short musical note whenever a key is 
pressed — a different pitch for each 
key. So if the user is asked to type in 
his name, he creates music while he 
does so (rather Hke Touch-Tone 
phone dialing). 

Not only does this give the advan- 
tage of pleasant audio feedback, but 
inherent in the routine is the abihty to 
input ALL punctuation and most 
control characters. If you use this 
routine in place of a normal INPUT 
statement, you will never again get an 
EXTRA IGNORED message from 
your Apple when someone enters his 
name as "Anderson, Bob". Com- 
mas, colons, and quotation marks 
will be treated as part of the input 
string, not as separators. And if you 
feel a need to enter control 
characters, most of them also will be 
accepted as part of the input string. A 
CTRL-G, for example, will place a 
beep in the string. (Did you know 
that INPUT will also accept most 
control characters?) However, note 
that CTRL-H or the left arrow will 
still cause a backspace, CTRL-C will 
still stop execution (immediately, not 
waiting for RETURN), and CTRL-M 
will still function just like RETURN, 
terminating the input. 

I chose to use the underline 
character for the cursor, rather than 
the standard blinking square, just for 
the sake of variety. If you're a real 
consistency freak and simply MUST 
have the blinking square, you can 



make the following change in lines 
20, 23, and 24: In place of "CHR$ 
(95);", insert ": FLASH: PRINT 
CHR$ (32);: NORMAL: PRINT". 
For that matter, you can choose any 
NORMAL, FLASHing, or IN- 
VERSE character you like for the 
cursor, by making similar modifica- 
tions. This is an easy way to give your 
programs a unique, individual touch. 

Using the routine in a program is 
simplicity itself. Just copy lines 10 
through 25 into the beginning of your 
program, and then start the main 
program itself at line 100. Of course, 
you can change the line numbers if 
you like (along with the various 
GOTOs), just as long as the code in 
Hues 10-11 gets executed before call- 
ing the subroutine starting in line 20. 
It is advisable, for the sake of speed, 
to keep this subroutine near the 
beginning of your program rather 
than moving it to the end. 

In your main program, whenever 
you would use an INPUT statement, 
use a GOSUB 20 instead. The 
subroutine will return your input in 
the string variable A$, which can 
then be manipulated in the usual 
ways — including taking its VALue 
for use as numerical input. "GOSUB 
20", then, is the exact substitute for 
"INPUT A$". If A$ already has 
another purpose in your program, 
you can feel free to substitute a dif- 
ferent variable name in the ap- 
propriate places in the subroutine. 
Likewise, if the variables CHR, 
PITCH, TIME, or MUSIC (i.e. any 
real variables starting with CH, PI, 
TI, or MU) have special uses already, 
those may be changed. The variables 
POK$ and P are used only once, in 



poking in the sound routine, and may 
be reused in any other part of the 
program for other purposes. 

An extra goodie that you get along 
with the input routine is the sound 
routine. This can be used from 
anywhere in your program by POKE- 
ing values into PITCH and TIME (0 
to 255) and then CALLing MUSIC. 
It's a standard tone routine that you 
find in all sorts of Apple programs. 
For your reference, here are the ap- 
propriate values to POKE into 
PITCH for different notes: 



c 


192 


96 


48 


24 


B 


204 


102 


51 


25 


A# 


216 


108 


54 


27 


A 


229 


114 


57 


29 


G# 


242 


121 


61 


30 


G 


225 


128 


64 


32 


F# 




136 


68 


34 


F 




144 


72 


36 


E 




153 


76 


38 


D# 




162 


81 


40 


D 




171 


86 


43 


C# 




182 


91 


45 


c 




192 


96 


48 



You can use lower numbers for 
higher notes, following the same pat- 
tern; but pitch errors get more pro- 
nounced as you are forced to use, for 
example, either 12 or 13 instead of 
12.5 for the next higher B. Notice 
that the routine is not POKEd into 
memory using DATA statements, so 
as not to interfere with other use of 
DATA statements in the main pro- 
gram. 

The notes inserted in the listing 
below should explain the operation 
of the subroutine. Have fun using 
(and modifying) it to brighten up 
your programs. 



Poke in aachine-language 
sound-generating routine. 

10 POK« = "173,048,192,136,208,00 

4,199,001,240,008,202,208,24 
6,166,000,076,000,003,096" 

11 FOR P = TO 18: POKE 768 + P 

, VftL ( HID» (POK$,P » 4 + 1 

,3)): NEXT P:PITCH = 0:TII1E = 

IrHUSIC = 768: SOTO 100 
Clear keyboard, print proipt and 
cursor. (CHR$(8) backspaces 
without erasing the character 
displayed on the screen.) 
20 POKE - 16368,0: PRINT "? "; CHR* 

(95); CHR* (B);:A* = "" 
Check for keypress. 


21 CHR = PEEK ( - 16384): IF CHR 

< 127 THEN 21 
Play tone, Nith pitch related to 

fiSCII value of character. If 
character is RETURN, then return to 
■ain prograi. 

22 POKE - 16368,0:CHR = CHR - 1 

28: POKE TINE, 15: POKE PITCH 
,CHR « 2: CALL MUSIC: IF CHR 
= 13 THEN PRINT " ": RETURN 
Print character over cursor, and 
advance cursor to next space. Add 
character to A*. 

23 IF CHR < > 8 THEN PRINT CHR* 

(CHR); CHR* (95); CHR* (B);: 
At = A* i CHR* (CHR) : SOTO 
21 


If character is backspace, erase 
last character, reposition cursor, 
and delete rightiost character froa 
A*. 

24 PRINT " "; CHR* (8); CHR* (8) 

; CHR* (95); CHR* (8);: IF LEN 
(A*) > 1 THEN A* = LEFT* (A 
*, LEN (A*) - 1): SOTO 21 

25 A* = "": SOTO 21 

Begin aain prograi at line 100. 

For exaiple: 
100 HDHE 

110 PRINT "TYPE IN YOUR NAHE:"; 
120 60SUB 20 
130 PRINT : FOR 1 = 1 TO 15: PRINT 

TAB( 1) "HELLO, ";A*: NEXT I 
140 END Q 
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COMPUTERS 



TRS-80 Model III, 16K RAM (#26-1062) $919.00 

TRS-80 Model II, 48K RAM (#26-1062+). . . . $999 00 
TRS-80 Mod. Ill 48K RS232 2-dr. (#26-1063)$2299.00 
TRS-80 Pocket Comp. w/lnterface (#26-3501 + ) . $259 

TRS-80 Video Tex (#26-5000) $299.00 

TRS-80 Color Computer, 4K RAM (#26-3001 ) . $359.00 
TRS-80 Color Comp. 16K RAM (#26-3001 +) . $399.00 
TRS-80 Color Comp. 32K (#26-3001 + +) . . $479.00 
TRS-80 Color Comp. Ext. BASIC (#26-3002) . . $529.00 
TRS-80 Color Comp. Ext. BASIC 32K 
(#26-3002 + ) $599.00 



32K 
COLOR 
COMPUTER 
$479 



e 








T5€:HPiRDSID€ 



6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



MODEL I PERIPHERALS 

COMM-80 Interface (#4-80) $159.00 

CHATTERBOX Interface (#4-81) $239.00 

DISK-80 Interface, 32K RAM (#4-82) $339.00 

DISK-80+ Interface, 32K RAM (#4-83) $369.00 

BUSY BOX Interface (#4-01) $89.95 

LYNX Communications Interface (#19-80) . . . $229.00 
RS Exp. Interface, 32K RAM (#26-1140-32) . . $389.00 
16K Memory Kit, TRS-keyboard (#5-1 102-1) . . $49.00 
16K Memory Kit, TRS-lnterface (#5-1102) . . . .$49.00 

ORCHESTRA-80 (#15-03) $79.95 

Upper/Lower Modification Kit (#15-02) $29.95 

CPU Speed-up Modification kit (#15-04) $45.00 

Video Reverse Modification kit (#15-05) $23.95 

2-port TRS-BUS Extender (#15-12) $29.95 

3-portTRS-BUS Extender (#15-13) $34.95 

TRS-80 Model I Dust Cover Set (#16-01) $7.95 

TRS-80 Model I Carrying Case (#7-201) $109.00 

TRS-80 Monitor Carrying Case (#17-202) $84.00 

Dual Joysticks for Color Computer (#26-3008) . $24.95 
CTR-80A Cassette Recorder & Cable (#26-1 206)$59.95 

TRS-80 Model III Dust Cover (#16-05) $7.95 

TRS-80 Color Dust Cover (#16-06) $7.95 

DIGI-TALKER MOD-I (#4-DT1) $189.00 

DIGI-TALKER MOD-III (#4-DT3) $189.00 

80-Graphic Board (#26-80G) $139.00 

LYNX Auto-Answer/Auto Dial (#19-82) $279.00 






ggg^^^o&Soog 



\aao 



$259 

POCKET COMPUTER WITH INTERFACE 



MODEL I DISK DRIVES 

HARDSIDE 40-track Drive (#7-40) $319.00 

PERCOM TFD-40 Drive (#7-99) $379.00 

PERCOM TFD-100 Drive (#7-100-1) $399.00 

HARDSIDE 80-track Drive (#7-80) $449.00 

PERCOM Dual TFD-100 Drives (#7-100-2). . . . $799.00 

PERCOM Data Separator (#7-03) $29.95 

PERCOM Doubler (#7-07) $219.95 

HARDSIDE Extender Cable (#7-02) $15.95 

HARDSIDE 2-Drive Cable (#7-04) $29.00 

HARDSIDE 4-Drive Cable (#7-05) $39.00 



TERMS: Prices and specifications are subject to change. HARDSIDE accepts VISA & 
MASTERCARD. Certified checks and Money Orders: Personals checks accepted (takes 3 
weeks lo clear). HARDSIDE pay all shipping charges (within the 48 stales) on all PREPAID 
orders OVER $100 00. On all orders under $100 a $2.50 handling charge must be added. 
COD orders accepted (orders over $250 require 25% deposit), there is a $5.00 handling 
charge. UPS Blue Label, and Air Freight available at extra cost. TRS-80 is a trademark of 
Tandy Corp. 
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VOLCANO 



by Victor T. Albino (Atari Transla- 
tion by Art Cestaro) 

"Volcano" is an Atari program 
whicli requires 24K of RAM. 

Here is the Atari version of 
"Volcano", a combination of game 
and educational software. The pro- 
gram explains current scientific 
theory about volcanos, complete with 
details about different types of lava, 
mud flows, and the force of nature's 
most powerful explosive. After you 
finish studying about volcanos, you 
are then presented with a quiz or sur- 
vival test. You are placed on Mount 
St. Helens at the moment of eruption 
and given a number of options. 
Should you choose the correct course 
of action, you will be presented with 
further decisions until you either 



perish or escape from the doomed 
mountain. 

This Atari translation is the first 
winner in our translation contest. 
Each month we will publish what we 
consider to be the best translation of 
a feature program in an issue of Soft- 
Side, and reward the author with a 
software certificate. 



VARIABLES 

E: Contains the variable of your 
action. 

E$: Contains the string "Enter the 
number of your action". 
P$: Contains the string "Press 
fire". 

Q: Variable used in mountain 
rumbling noise. 



DOCUMENTATION 

Lines 100-171: Historical 
background. 

Lines 180-230: Graphics display. 
Lines 235-515: Instructions. 
Lines 520-605: Facts about the con- 
sequences of an eruption. 
Lines 609-645: Opening scene. 
Lines 650-660, 730-740, 800-810, 
885-895, 945-955, 1005-1015, 
1060-1070, 1110-1120: Player's op- 
tions of "what to do Jiext." 
Lines 675-695, 755-770, 820-850, 
910-930, 970-980, 1085-1095: Perish 
routines, program branches here 
when you have made a fatal deci- 
sion. 

Lines 710-715, 780-785, 865-870, 
985-990, 1030-1045, 1140-1175: 
Player's current location. 
Lines 1140-1205: Win routine. 





120 ? "THE BOO DEGREE FLONS COLLIDED I 


160 ? !? "NHAT ISKNONN IS THAT AIR FO 


1 m U VOLCANO »l 


NTO SPIRIT LAKE AND BECAME A TORREN 


RCE AND ARNY NATIONAL GUARD HELI 


2 REK Translated by 


T" 


COPTERS" 


3 REH Art Cestaro III 


121 ? "OF SUPERHEATED MUD, CARRYING OF 


161 ? "RESCUED 197 PEOPLE, SNATCHING T 


5 DIN E$(45),A$(3):E»="EHTER THE NO.OF 


F 100-TON LOGGING TRUCKS, BRIDGES 


HEN FRDN AROUND THE BOILINS NOUNTAI 


THE ftCTIOU ' 


■ 


N.":GOSUB 1300 


10 BRflPHlCS 0:POKE 752,1-:SETC0L0R 2,8, 


122 ? "AND ANYTHING ELSE IN ITS PATH. 


170 ? :? !? "SCIENTISTS ARE NOT EXACTL 


3:P0SITI0N 8,5!? ' VOLCANO 


THE MUD FLONED ON INTO THE TOUTLE," 


Y SURE NHAT CAUSES A VOLCANO, BU 


M 


123 ? "COWLITZ AND COLUNBIA RIVERS 


T IT" 


15 FOR X=l TO 300:NEn X 


CAUSING SEVERE FLOODING. ■:GOSUB 


171 ? "IS THOUGHT THAT THEY RESULT FRO 


20 FOR X=l TO 255:S0UND 0,X,l2,i:SETC0 


1300 


N THE NOVEHENT OF THE EARTHS CRUS 


L0R2,3,1(:NEXT X:S0UND 0,0,0,0 


135 ? :? "DRANN BY THE HOPE OF SEEING 


T.":80SUB 1300 


30 SETCOLOR 2,8,3!SETC0LOR 4,8,3:? ")" 


SOME VOLCANIC ACTIVITY, NANY 


180 GRAPHICS 7:SETC0L0R 4,8,4:SETC0L0R 


100 ? :? :? "ON MAY 18, 1980, AT 8:32 


■ 


2, 1,1: POKE 752,1 


AN, NOUNT ST. HELENS ERUPTED" 


134 ? "PEOPLE HAD COME TO THE MOUNTAIN 


181 COLOR 3:PL0T 0,79:DRANT0 30,68:PL0 


105 ? 'KITH A FORCE 500 TINES GREATER 


THAT MEEKEND, SINCE ST. HELENS" 


T 30,68:DRAHTQ 50,63:PL0T 50,63:DRAtlT0 


THAN THAT OF THE BOHB THAT FELL 


137 ? "BEGAN EHITTIN6 PUFFS OF STEAM 


98,71 


■ 


BACK IN MARCH. ALTHOUGH THERE" 


182 PLOT 98,71:DRANT0 110,65:PL0T 110, 


110 ? "ON HIROSHIMA! 1 THE TOP 1300 FE 


138 ? "MERE SIGNS AND ROADBLOCKS MARNI 


65:DRANT0 14O,73:PL0T 140,73!DRANTO 14 


ET OF THE NOUNTAIN NAS IHNEDIATELY 


NG EVERYONE TO STAY AHAY, THEY STI 


5,70:PL0T 145,7O!DRANT0 158,79 


" 


LL" 


183 PLOT 9fl,71:DRANT0 103,79 


112 ? "PULVERIZED AND THRONN 12 MILES 


139 ? "CANE: TOURISTS, CAHPERS, SCIEN 


190 PLOT 0,60:DRANT0 3B,50!PLOT 38,50; 


INTO THE SKY. tllTHIN MOMENTS" 


TISTS, PHOTOGRAPHERS, ADVENTURERS, AND 


DRANTO 58, 40: PLOT S8,40:DRAHTO 69,28 


114 ? "EVERYTHING NITHIN 150 SQUARE 


■ 


191 PLOT 69, 28: DRANTO 80, 20: PLOT 80,20 


MILES NAS ENGULFED IN THE FURY" 


140 ? "JUST PLAIN CURIOUS. "!GOSUB 1300 


: DRANTO 88, 24: PLOT 88, 24: DRANTO 95,21 


115 ? "OF THE VOLCANO! !l"!BOSUB 1300 


145 ? :? :? "BUT THEN NO ONE EXPECTED 


192 PLOT 95,21:DRANT0 97,23:PL0T 97,23 


Hi ? :? :? "THICK, BLACK SMOKE ACCENT 


THAT THE MOUNTAIN MAS NAITING 


:DRAHTO t08,36:PL0T 108,36:DRANT0 130, 


ED NITH" 


TO" 


50: PLOT 130, 50: DRANTO 158,73 


117 ? "PINK AND PURPLE LIGHTNING, FLYI 


146 ? "EXPLODE LIKE SOHE KIND OF BI6AN 


193 PLOT 80,20:DRANTO 87,17!PL0T 87,17 


N6 BOULDERS AND CHUNKS OF ICE BLAS 


TIC NUCLEAR TINE B0MB.":6aSUB 1300 


: DRANTO 95,21 


TED" 


155 ? :? :? "ABOUT SEVENTY OF THE VISI 


200 ? "GREAT SLABS OF EARTH'S CRUST RU 


118 ? "A SNATH OF DESTRUCTION 20 NILES 


TORS TO THE MOUNTAIN THAT NEEKEND 


B AGAINST EACH OTHER GENERATING" 


TO THE NORTH. HOT ASH, ROCKS A 


DID" 


201 ? "TREMENDOUS HEAT AND PRESSURE AH 


ND" 


156 ? "NOT LEAVE ALIVE. EXACTLY HON M 


D' 


119 ? "GAS ROARED DOHN THE NOUNTAIN IN 


ANY PEOPLE PERISHED KILL LIKELY NEV 


202 FOR X=l TO 900:NEXT X:? "}" 
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ER" 
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20i ? 'HOT MftBMA RISES AND EVENTUALLY 
NORKS ITS NAY TO THE SURFACE.' 

208 FOR X=l TO SOOsNEH K:? ■)■ 

209 ? -NHEM IT ERUPTS, A VOLCANO IS BO 
RNII" 

350 FOR H=l TO 300: NEXT H 
400 FOR G=0 TO 190JS0UND 0,G,12,14:SET 
COLOR 2, 6,6: NEXT B:SETCOLOR 2,1,1 
500 60SUB MOO! FOR U=230 TO 80 STEP -1 
:SOUNO INT(RND(l)t4),RND(l))U,8,8 

505 COLOR RND(1)»8!PL0T 87,2l!DRANT0 I 
NTIRND(0)»90)+40,INT(RND(1)»23)+4:POKE 

712,U 

506 IF U<160 THEN COLOR IrPLOT 87,21:0 
RANTO RND(0)«90+45,RND(0)«20+35 

509 NEXT U 

510 BRAPHICS 0!SETCOLOR 2,8,3:SETC0L0R 
4,8,3:F0R 2=0 TO 3:S0UND Z,0,0,0:NEXT 
Z 

511 ? :? :? "THIS PROBRAN CREATES A SC 
ENARIO ■ 

512 ? "SIMILAR TO THOSE REPORTED BY SO 
NE OF THE APPROXIHATELY 300 PEOPLE 

i 

513 ? 'NHO MERE CAHPED AROUND NT. ST. 

HELENS ON THE HORNING OF' 

514 ? 'MAY 18,1980." 

515 ? :? 'YOUR GOAL IS SIMPLE: SURVIVE 

I I ■ 

516 ? :? 'THE HAZARDS ARE MANY,..': BOS 
UB 1300 

517 ? :? " LAVA: UNLIKE THE MORE LIQU 
ID LAVA OF THE HANAIIAN VOLCANOES, T 
HE" 

518 ? "LAVA OF ST. HELENS IS OF THE 

ANDESITE VARIETY-A STICKY, SUM 
MY" 

519 ? 'MATERIAL. IT MOVES SLONLY AND 

DOES NOT TRAVEL FAR. " 

520 ? :? ' ASH: MOST OF THE DEATHS AT 
ST. HELENS NERE DUE TO SUFFOCATI 

ON' 

521 ? 'CAUSED BY HOT ASH FORCED INTO T 
HE LUNGS.' 

522 ? :? ' PYROCLASTIC FLONS: MASSES 
OF HOT, DRY ROCK THAT MOVE LIKE A FL 
UID' 

523 ? 'BECAUSE THEY ARE MIXED NITH HOT 

AIR AND OTHER BASES. THESE FLO 
NS' 

524 ? 'TRAVEL AT OVER 100 HPH AND AFFE 
CT AREAS FAR FROM THE VOLCANO. ':60 
SUB 1300 

525 ? !? " MUD FLONS: THESE LOOK LIKE 
A NAVE OF HOT, FL0HIN6 CONCRETE AND 
CAN' 

526 ? -MOVE AT SPEEDS UP TO 50 MPH. T 
HEY CARRY ALONG BOULDERS, TREES, AN 
D" 

527 ? 'DEBRIS IN THEIR NAKE.' 

528 ? !? ' BASES: HOT GASES SUCH AS C 
ARBON DIOXIDE, CARBON MONOXIDE, CH 
LORINE,' 

52S ? 'm SULFUROUS FUMES ARE SPENED 
OUT TOGETHER MITH MOLTEN OR SOLID R 
OCK.' 



530 ? :? ' DEBRIS: LARGE CHUNKS OF EA 
RTH, ROCK, AND ICE CAN BE THROMN OUT FR 
OH" 

531 ? 'ANY OF THE MOUNTAIN'S FLANKS AS 

NELL AS ITS SUMMIT. •:60SUB 1300 

532 ? :? ' LIGHTNIHfi! FLASHES OF LI6H 
THING GENERATED BY HIGHLY CHARGED 
DUST' 

533 ? 'PARTICLES, STREAK AROUND THE MO 
UNTAIN.' 

534 ? :? ' FLOODS: MUDFLONS JOIN NITH 
RIVERS SMELLING THEM MANY TIMES TH 

EIR' 

535 ? 'NORMAL SIZE CAUSING NIDESPREAD 

FLOODING AND KILLING HILDLIFE.' 

536 ? :? ' EARTHQUAKES: THESE RESULT 
FROM THE MOVEMENT OF THE MOLTEN R 
OCK' 

537 ? 'MITHIN THE MOUNTAIN." 

53B ? !? ' FIRES: ABOUT A HUNDRED FIR 
ES NERE STARTED DURING THE ST. HELENS 

539 ? 'ERUPTION BY HOT GASES, PYROCLAST 
IC FLONS AND LIGHTNING.. ':GOSUB 13 
00 

610 POKE 752,1:? :? ' T H E S 
C E N E ' 

611 ? :? :? "YOU ARE CAHPED ON THE NES 
T SIDE OF MT. ST. HELENS.' 

612 ? 'YOU HIKED UP FROM THE END OF A 

LOGGING ROAD HKERE YOU LEFT YOU 
R" 

613 ? 'CAR LAST NIGHT. YOU HAVE A SMA 
LL FIRE GOING TO MAKE SOME COFFEE. 

616 ? :? 'THERE IS AN EERIE BUIET. TH 
ERE ARE NO BIRDS SINGING. ':GOSUB 130 


617 ? :? :? 'SUDDENLY YOU ARE SHAKEN B 
Y AN EARTHQUAKE! !!!■ 

618 ? 'THE GROUND UNDULATES AROUND YOU 

TALL FIR TREES SHAY ANAY." 

619 ? !? "THEN... A GIANT ROAR.AHD THE 
TOP OF THE MOUNTAIN EXPLODES THO 
USANDS" 

620 ? 'OF FEET INTO THE AIR SUSPENDED 
ON A THICK COLUMN OF BLACK SMOKE." 

621 ? :? 'THE DENSE CLOUD EXPANDS AND 
BEGINS TO MOVE IN YOUR DIRECTION.': 
60SU6 1300 

650 ? :? :? 'NHAT SHOULD YOU DO ?' 

651 ? :? !? 'D USE YOUR CAMPING SHOVE 
L TO DIG IN UNTIL IT'S SAFE TO MOV 
E.' 

652 ? '2) TAKE PHOTOGRAPHS. THEY SHOULD 

BE NORTH PLENTY.' 

653 ? "3) START BACK DONN THE MOUNTAIN 

TO YOUR CAR.' 

654 ? '4) GET TO HIGH GROUND. 

5) TRY TO FIND SOME SELTER." 

655 ? :? E$i: INPUT D 

660 ON D GOTO 675,680,685,690,695 

675 ? ')•:? !? 'YOU JUST DUG YOUR OHN 

GRAVE. HOT ASH HILL BURY YOU.': GOTO 7 

00 

680 ?'}':? :? 'CONGRATULATIONS. YOU 



HAVE TAKEN SOME REALLY SPECTACULAR PIC 
TURES' 

681 ? "THAT NILL BE DUPLICATED IN 100 

NEHSPAPERS. YOU HILL RECEIVE' 

682 ? 'MANY ANARDS-ALL POSTHUMOUSLY.' 
:GOTO 700 

685 ? "}":? !? :? "NON YOU ARE USING Y 
OUR HEAD. GET OUT OF THERE FAST..": 60 
TO 710 

690 ? ")":? :? :? 'FORGET ITl HOT SUL 
FUR DIOXIDE GAS COMING OUT OF THE S 
IDE OF THE" 

691 ? 'MOUNTAIN GETS YOU AS YOU CLIMB 

HIGHER. ':GOTO 700 

695 ? '}':? :? :? 'YOU ARE TOO CLOSE T 
THE HOT ASH FOR ANY SHELTER TO BE E 
FFECTIVE." 

696 ? "THOSE NHO TRIED THIS NERE BURIE 
D ALIVE. ":60T0 700 

700 POKE 752,1:F0R T=0 TO 1000:NEXT T: 
? "}":? :? :? " YOU HAVE PERIS 
HED " 

701 FOR 6=1 TO 400 STEP 2!S0UND 0,6,12 
,13:SETC0L0R 2,G,G:NEXT 6 

702 SOUND 0,0,0,OiSETCOLOR 2,8,4;? :? 
:? "HANT TO PLAY A6AIN (YES OR NO)"; 

703 INPUT A»:IF A»='YES' THEN 610 

704 IF A*='NO" THEN 707 

705 IF A»<>"YES" OR A«<>"NO' THEN ? :? 
'ANSNER NITH YES OR H0!!':6OTO 702 

707 ? '}':? !? !? "EITHER TAKE A SURVI 
VAL COURSE OR STAY AHAY FROM SMOK 
1N6 MOUNTAINS...' 

708 ? 'PREFERABLY BOTH!l':END 

710 ? :? :? 'AS YOU APPROACH THE HIKIN 
6 TRAIL THAT LEADS DOWN TO THE LO 
6GIN6' 

711 ? 'ROAD, YOU FIND THAT MANY TREES H 
AVE FALLEN ACROSS THE TRAIL MAKIN6' 

712 ? "PASSAGE DIFFICULT." 

713 ? :? "YOU THINK YOU REMEMBER A SHO 
RT CUT DONN THE MOUNTAIN THAT ALSO 
LEADS" 

714 ? "TO THE END OF THE LOGGING ROAD. 
":GOSUB 1300 

730 ? :? "NHAT SHOULD YOU DO?" 

740 ? :? "D ATTEMPT TO NAVIGATE THE T 
RAIL." 

741 ? "2) TAKE THE SHORT CUT." 
745 ? :? E*;: INPUT D 

750 ON D GOTO 765,755 

755 ? •)":? :? "IN AN EMERGENCY NE OFT 
EN FORGET THOSE THINGS THAT HE KNOH NE 
LL-SUCH" 

756 ? 'AS OUR ONN PHONE NUMBER. IN YO 
UR EXCITEMENT YOU QUICKLY FIND YOU 
RSELF" 

757 ? 'LOST. YOUR TIME RUNS OUT AND YOU 

ARE OVERRUN BY A PYROCLASTIC FL 
ON.': FOR T=l TO 1000: NEXT T:60T0 700 

765 ? ')':? :? :? "UNDER THE CIRCUMSTA 
NCES THIS IS A BETTER CHOICE. AT LE 
AST YOU KNOH" 

766 ? "THAT THE TRAIL EVENTUALLY LEADS 

BACK TO THE ROAD. YOU CLIMB OV 

ER" 

continued on next page 



SoflSide June 1981 



35 



continued from previous page 

767 ? "AND UNDER HUGE FALLEN TREES AS 

YOU HAKE YOUR MAY BACK DOHN* 

768 ? "THE TRAIL. "iBOSUB 1300 

780 ? :? !? :? "NHEM YOU ARRIVE AT YOU 
R CAR, YOU FIND THE ROAD IS BLOCK 
ED BY" 

781 ? 'LARGE ROCKS WHICH ROLLED ON IT 

DURING THE QUAKE. YOU KNOH THA 
T THE" 

782 ? 'END OF THESE LOGGING ROADS IS 
NE OF THE FIRST PLACES THAT RESCUE 
RS" 

783 ? 'NILL LOOK." 

78A ? :? 'ON THE OTHER HAND THERE IS A 
CHANCE YOU COULD HOVE THOSE ROCKS J 
UST ENOUGH TO GET THROUGH." 
788 60SUB 1300 

795 ? !? "NHAT SHOULD YOU DO?" 
800 ? :? 'D GET IN THE CAR FOR PROTEC 
TION AND HAIT TO BE RESCUED." 

802 ? "21 FORGET THE CAR AND 60 DONN T 
HE ROAD ON FOOT. " 

803 ? '31 BUILD A FIRE TO ATTRACT RESC 
UERS. ' 

804 ? '41 TRY TO SET THE ROCKS OUT OF 
THE NAY. " 

810 ? :? E»;!lNPUT D:? •}"!0N D GOTO 8 
20,825,830,835 

820 ? :? "SOME PEOPLE DID EXACTLY THAT 

UNFORTUHATELY,THEIR CARS BEC 
AHE" 

821 ? "THEIR TOHBS.":GOTO 700 

825 ? :? "IT IS HARD TO OUTRUN A VOLCfl 
NO. YOU ARE OVERTAKEN BY A NUDSLIKE. 
"sBOTG 700 

830 ? :? "YOU NON'T HAVE TO BUILD A Fl 
RE HERE. IT NILL BE PLENTY HOT IN A F 
EN MINUTES. ":BOTO 700 
835 ? ;? "IF THERE IS A CHANCE YOU CAN 
USE YOUR CAR TO BET ANAY.TAKE IT 
1 1" 

834 ? "BY USING THE LIHBS AS ft LEVER A 

ND PUSHING OTHER ROCKS OUT OF THE 
NAY" 

837 ? "NITH THE CAR, YOU HANA6E TO GET 

THROUGH. AS SOON AS YOU'RE CL 
EAR," 

838 ? "YOU FLOOR THE ACCELERATOR. YOU 
'RE GOING 80 NPH DONN A DIRT ROAD. 

YOU" 

840 ? 'ARE APPROACHING A BRID6E THAT 

CROSSES THE TOUTLE RIVER NHEN" 

841 ? "SUDDENLY A NUDFLON HITS. THE B 
RIDGE EXPLODES BEFORE YOUR EYES." 

845 ? "YOU BLAH ON YOUR BRAKES AND STQ 
P JUST SHORT OF THE STEAMING" 

846 ? "CHOCOLATE OOZE. YOUR HAY BLOCK 
ED, YOU GET OUT OF YOUR CAR AND BE6 
IN" 

847 ? "RUNNINB. AFTER A NHILE YOU TIR 
E AND SLON DONN, BUT LOOKINB UP YOU S 
TART" 

848 ? "TO RUN AGAIN." 

850 ? "THE ASH CLOUD IS COMINB! !":BOSU 
B 1300 



865 ? :? :? "AS THE BLACK CLOUD DESCEN 
OS, IT IS AS IF SOMEONE HAS THRONN 
A BLACK" 

866 ? "VELVET CURTAIN OVER YOUR HEAD. 
ALL LIBHT VANISHES. YOU CANNOT SEE 
YOUR" 

867 ? "HAND IN FRONT OF YOUR FACE. IT 
IS HOT, BURNING.' 

870 ? 'YOU TRY TO CATCH YOUR BREATH, BU 
T YOUR THROAT FEELS LIKE IT IS' 

871 ? 'STUFFED NITH NARN COTTON FLUFF. 

YOUR LUNGS BURN AND YOUR EYES' 

872 ? "STING. YOU STUMBLE AND FALL IN 

THE DARKNESS. ':60SUB 1300 
885 ? !? "NHAT SHOULD YOU DO?' 

890 ? !? '11 LIE DONN NITH YOUR FACE 
N THE GROUND.' 

891 ? "2) FIND SOME SHELTER." 

893 ? "3) RUB THE ASH FROM YOUR EYES." 

894 ? '4) KEEP MOVING IN THE DARK.' 
900 ? :? E«!: INPUT Di? '}':0N D GOTO 9 
10,915,920,925 

910 ? :? 'THE RIGHT DECISION, IF YOU N 
ANT TO MAKE THIS YOUR ETERNAL RESTI 
NG PLACE! I': GOTO 700 
915 ? :? 'I HOPE YOU LIKE THE SPOT YOU 
FIND, BECAUSE YOU'RE BOINB TO BE T 
HERE FOREVER! I ':GDTO 700 

920 ? i? "VOLCANIC ASH IS VERY ABRASIV 
E. YOUR EYES SHELL UP. YOU HANDER A 
ROUND' 

921 ? 'AND ARE OVERCOME.': GOTO 700 

925 ? :? :? 'THIS IS THE ONLY REAL CHA 
NCE YOU HAVE. TO STAY HHERE YOU 
ARE' 

926 ? 'MEANS CERTAIN DEATH." 

930 ? :? :? "YOU GET UP AND BEBIN HALK 
INB NITH YOUR HANDS OUT BEFORE YOU 

TO" 

931 ? "FEEL THE HAY. AFTER A HHILE YO 
U NOTICE THAT YOUR FEET FEEL NET. 

■ 

932 ? "YOU THINK YOU ARE HALK INB IN A 

CREEK. ":60SUB 1300 
940 ? :? "HHAT SHOULD YOU DO?" 

950 ? :? "D BET OUT OF THE HATER AND 
KEEP MOVING. " 

951 ? "2) NASH OUT YOUR EYES NITH THE 
HATER." 

952 ? "3) HALK IN CREEK." 

955 ? :? E»|!lNPUT D:? •}":0N D GOTO 9 
70,975,980 

970 ? :? 'SINCE YOU HAVE NO HAY TO KNO 
H HHERE YOU'RE GOING, YOU NANDE 
R' 

971 ? "IN A CIRCLE UNTIL EXHAUSTION TA 
KES OVER.": GOTO 700 

975 ? :? "THE ASHFALL IS TOO HEAVY. T 
HE HATER MIXES HITH IT TO FORM A GRIT 
TY PASTE.": GOTO 700 

980 ? :? "SINCE YOU HAVE NO IDEA OF HH 
ICH DIRECTION YOU'RE GOINB.THIS 
OFFERS" 

981 ? "THE BEST ALTERNATIVE. YOU STOO 
P DOHN AND FEEL THE HAY THE HATER 



982 ? "IS FLOHINB AND FOLLON THE CURRE 
NT DOHNHILL." 

985 ? ;? :? "YOU TRAVEL DOHN THE CREEK 
FOR SOME TIME. THE, HITHOUT HARNI 

NG, YOU" 

986 ? "PLUNBE INTO HOT HATER UP TO YOU 
R NECK. INSTINCTIVELY, YOU REACH 

OUT" 

987 ? "IN THE DARKNESS AND GRAB HOLD 
F SOMETHING.. A FALLEN TREE." 

988 ? "IT PULLS YOU ALONG DOHNSTREAM." 
:6DSUB 1300 

1005 ? :? "HHAT SHOULD YOU DO?" 

1015 ? :? "D LET BO OF THE LOB AND SH 
IM FOR THE BANK." 

1016 ? "2) SHIN UNDERHATER." 

1017 ? "3) HANB ON," 

1020 ? :? E$;:INPUT D:? "}":0N D GOTO 
1030,1030,1035 

1030 ? :? "THE RIVER IS FILLED HITH DE 
BRIS. YOU ARE CRUSHED IN A LOB JA 
HI":GOTO 700 

1035 ? :? "THE LOG CARRIES YOU ALONG U 
NTIL IT STOPS AT A LOB JAM. THE 
END" 

1037 ? "YOU ARE HOLDINB ON TO SHINBS 

AROUND AND RESTS ON A SHALLOH" 

1038 ? "AREA BESIDE THE BANK. YOU SCR 
AMBLE OUT OF THE HATER." 

1040 ? :? "FINALLY, YOU CAN SEE SOHETHI 
NB.. A DIM BLOH IN THE DISTANCE. 
IT" 

1042 ? "LOOKS LIKE A SEARCH LIGHT. TH 
EN YOU REALIZE THAT IT IS THE SUN 

■ 

1043 ? "SHINING THROUBH THE ASH CLOUD. 

AS YOU 80 ON THE ASH BETS THIN 
NER." 
1045 ? "FINALLY, THE SUN BREAKS THROUBH 

AND YOU CAN SEE THE SKY ABAIN. 

I 

1047 ? "UP AHEAD YOU SEE A RID6E,BEL0H 

YOU IS A PLATEAU OF INDESCRIBA 
BLE" 

1048 ? "DEVASTATION... A BRAY ASH COVER 
ED MOONSCAPE. ":60SU6 1300 

1060 ? :? "NHAT SHOULD YOU DO?" 
1065 ? :? "1) YOU ARE BLEEDING A LITTL 
E FROM YOUR HEAD AND ARMS. TEND 
TO YOUR HOUNDS." 

1067 ? "2) GO UP TO THE RIDGE." 

1068 ? "3) START DOHN TOWARDS THE PLAT 
EAU." 

1069 ? "4) REST YOURSELF," 

1070 ? :? E«;:1NPUT D:? "}":0N D GOTO 
1085,1095,1090,1085 

1085 ? :? "YOU HAVE HASTED VALUABLE TI 
ME. YOU FALL ASLEEP AND NEVER HAKE 
UPI":GOT0 700 
1090 ? :? "HHY ON EARTH HOULD YOU HANT 

TOGO DOHN THERE!! POISON GAS GETS 

YOU.": GOTO 700 

1095 ? :? "UP OH THE RIDGE YOU CAN BE 

SEEN BETTER FROM THE AIR. ONCE 

ON" 
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1096 ? "TOP YOU GET A BETTER APPRECIflT 
ION FOR THE ANESOHE HA6NITUDE OF T 
HE- 

1097 ? "VOLCANO. EVERYTHING BELON YOU 
IS COVERED HITH THICK, IHPENETRAB 

LE" 

1099 ? "SNOKE/iBOSUB 1300 

1100 ? :? "NHAT SHOULD YOU DO?" 

1120 ? :? "D CONTINUE DOMN THE HOUNTA 
IN." 

1121 ? "2) TRY TO ATTRACT RESCUERS." 
1125 ? :? E«;:INPUT D:? "}":flN D SOTO 
1135,1140 

1135 ? :? "THERE IS NO PLACE TO 60 BUT 
BACK INTO THE DARKNESS." 

1136 ? "YOU SUCCUMB TO SNOKE INHALATIO 
N.":60T0 700 

1140 ? :? :? "SINCE YOU ARE IN A AREA 
EASILY VISIBLE TO RESCUE HELICO 
PTERS,AND" 

1141 ? "EVERYTHIN6 BELON YOU IS COVERE 
D KITH TOnC SNOKE,YOU NISELY" 

1144 ? "DECIDE TO BUILD A SIGNAL THAT 
CAN BE SEEN FROM THE AIR." 

1145 ? "YOU ARRANGE ROCKS SO THEY SPEL 
L OUT ' S S 'AND POINT A LONG" 

1146 ? "ARRON TO A SHALL FIRE.FINISHED 

YOU FALL TO THE GROUND EXHAUST 
ED," 

1147 ? "BUT FIGHTING THE URGE TO SLEEP 

YOU HUST REMAIN ALERT FOR THE" 

1148 ? 'POSSIBILITY OF RESCUE." 

1149 ? :? "AGAINST THE RUMBLING OF THE 



VOLCANO , YOU HEAR ft NEN SOUND..." 
1150 ? "ALSO LOUD, BUT CHOPPY. ":GOSUB 1 
300 

1165 ? :? i? "IT'S A HELICOPTER I!!!" 

1166 ? :? "YOU TAKE OFF YOUR TORN SHIR 
T AND NAVE IT NILDLY. ASH FA 
LLS" 

1170 ? "OFF YOU IN A SHALL CLOUD AS YO 
U JUMP UP AND DQHN YELLING AS LO 
UD" 

1171 ? "AS YOU CAN. THEY SEE YOU AS A 

PLASTER GRAY FIGURE RUNNING" 

1172 ? "AROUND IN CIRCLES. THEY LONER 
A NICKER BASKET, AND YOU JUMP IN 

.":GOSUB 1300 

1190 ?:?:?" $ » YOU HADE IT » 

t ' 

1195 ?:?:? "YOU BEAT THE MOUNTAIN!!" 

1196 ?:?:?:?■ t t I CONGRftTULA 
TIONS » » ♦" 

1199 FOR 6=240 TO STEP -1: SOUND 0,6, 

10,14:NEn 6:END 

1300 ? !? :? "PRESS ANY KEY TO CONT." 

1305 IF PEEK(764)<>255 THEN POKE 764,2 

55:? ")"!RETURN 

1310 SOTO 1305 

1400 SOUND 0,99,B,8:S0UND 1,75,8,8:S0U 

ND 2,60,8,8:S0UND 3,20,8,8 

1402 FOR L=l TO 16:P0KE 712, 15»(RND(1) 

«17):NEn LsRETURN 

1404 REM ART V. CESTARO III, 4/10/81 

LOG! AT153 TRANSLATION _ 
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ABOUT THIS ISSUE continued from 
page 5 

of ways to play, ranging from the 
merely difficult to the sublime. Good 
shootin'. 

David Durkee, along with some 
translating aid from resident CPU 
wizard Jon Voskuil, has graced our 
pages with a "Word-Search Puzzle 
Generator" that lets you create those 
word-search puzzles that we've 
featured in the magazine these past 
few months. Again, this program will 
work for any of the systems we sup- 
port. 

For you Atari owners that com- 
plain about a lack of Adventures, we 
don't have any. But we do have 
"Catacombs of the Phantoms", by 
Tom Plessman, a fine dungeon pro- 
gram that's full of surprises. And we 
also have our first translation contest 
winner: Art Cestaro, who has come 
up with an Atari version of 



"Volcano", complete with on-screen 
eruption. 

David Gash has provided us with a 
unique S-80 game: "Krazy Talk", 
which tests both verbal acuity and 
crossword skill, but not in any way 
that we've seen before. Plus we have 
an Apple "Hexadecimal Puzzle" 
from George Zeigler — a computer 
rendition of those Httle plastic 
number puzzles that used to drive 
you crazy when you were a kid. And 
the aforementioned Mr. Voskuil 
wraps up "Math Decathlon" this 
issue. 

Finally, we have a "Maze Search" 
program for the Apple from Carl 
Mueller. And of course a whole slew 
of fine writings and ramblings from 
our assorted crazies, from that 
Adams fellow down south, to the 
mysterious "J". Enjoy. Q 
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ALL NEW VERSION! 

by Lance Micklus 

Now with Sound Capability 
and Increased Speed of 

Execution. 

You are in command of the 

starship Enterprise and her 

complement of 371 officers 

and crew. You must enter 

and explore the Omega VI 

region of the galaxy with its 

192 quadrants containing star 

systems and planets (a few of 

which are habitable). 

Astronomical hazards such as 

pulsars, Class stars, and 

black holes are known to be 

present in the region. Klingon 

battle cruisers are also 

present, so the utmost care is 

needed. 

Star Trek III. 5 includes: 

playboard 8 by 3 by 3 

quadrants; weapons system . 

of Phasers and Photon 
Torpedos; Warp and Impulse 
power systems; Science and 
Ship's computers; Long and 

Short Range sensors; 
Damage Control and Status 
reports; and 20 Klingon battle 
cruisers, and 100 stars, 
planets, black holes, and 
pulsars. 
Available on Digital 
Cassette for Level II, 
16K tM=Mi!in $14.95 



S-80 ONE LINER 

1 CLS;A=15360!B=16383!FORN=OT01023:POKEA+N,R«D(63)+1Z8!POKEB-N,R 
H)(63)+128*.NEXTNtFQRT=lT012flfl:NEXTT!RUN Stephen Roy Hugli 

Alexander, ME 
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CATACOMBS OF THE PHANTOMS 



by Tom Plassman 

"Catacombs of the Phantoms" is 
written for an Atari with 16K RAM. 

The opportunities in Petiteville 
were certainly not great, so it was 
perfectly understandable when you 
went to consult the town's doddering 
old wizard about opportunities for 
adventure. He wasn't particularly 
lucid, but in the course of his ram- 
blings he did mention the "Cata- 
combs of the Phantoms". When you 
pressed him for more information, 
his mind seemed to clear a bit and he 
told you about the Golden Goddess 
of- Power that the Sorcerer Agalinta 
was reported to have hidden in the 
caves, and about the fearsome collec- 
tion of monsters that were held there 
by its power. He even mentioned the 
phantoms which gave the catacombs 
their name and told of their curious 
reputation for both aiding and 
destroying would-be adventurers. 

The old wizard dozed off about 
then, raising more questions in your 
/mind than he'd answered; but what 
he had said piqued your curiosity and 
set you searching for other legends of 
the catacombs among the town's peo- 
ple. The town chemist told you about 
the fountains of blood that were said 
to increase a man's strength tenfold. 
The town cleric warned that the 
phantoms were the agents of 
Beebulbub, the Evilest One, and that 
the catacombs were the first stop on 
the road to damnation. The inn- 
keeper at the Sniveling Hen spoke on- 
ly of the immense treasure that the 
catacombs were said to contain. But 
the most important piece of informa- 
tion came from Twap, the town's 
oracle and most prominent drunk. 
He said thp old wizard had a potion 
that could send a person to the 
catacombs in the blink of an eye. 

So back you went to the wizard 
with a bag of food, a change of 
clothes, and your father's battered 
but trusty old sword. The wizard was 
oddly alert and seemed disquietingly 
eager to send you on your way. As he 
fiddled with his amulets and rum- 
maged through his potions, he said, 
"Remember, there are only three 
ways to leave the catacombs, boy. 
You can search out nature's en- 
trance, you can conquer the guar- 
dians of the Golden Goddess, or you 
can die. And the last is by far the 
simplest!" 
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He handed you a small leather bag 
and told you it contained three 
magical worms. "Use these wisely," 
he said, "They have the power to 
bore through stone and always search 
out a lower catacomb." 

Then, reciting an incantation, he 
slipped a piece of paper into your 
hand, sprinkled a powder over your 
head, and FLASH!!!!! 

Here you are, lost and alone in the 
Catacombs of the Phantoms... 

Looking at the paper you read the 
following: 

INSTRUCTION CODES 

Enter: 

The room number — to move to 
another room (0-59). 

Any negative number — to use a 
stairway. 

77 — to fight a monster. 

88 — to search a chest for gold. 

99 — to drink from a fountain. 

102 — to use a worm. 

200 — to leave from the natural ex- 
it in Room 0. 

It doesn't make much sense to you 
but you're determined to do your 
best to survive, so you resolve to 
faithfully shout "77" every time you 
attack a vile monster. 
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VARIABLES 

A(x,0): Holds monster seed number. 
A(x,l): Holds treasure seed number. 
A(x,2): Holds trap seed number. 
A(x,3): Holds phantom seed 
number. 

A(x,4): Holds seed number for 
stairway matching. 
A(x, 5-9): Holds seed numbers for 
tunnel matching. 
P(59): Used in searching for tun- 
nels. 

STAI(7): Seed in stairway searching. 
A$: Input for yes/no question. 
B$: Holds player name. 
B: Chest opening flag. 
DD: Agility penalty if caught by 
trap. 

DRINK: Number of drinks allowed 
from a fountain. 

E: Used to place secret room and 
then room colors. 
EX: Your experience. 
F: Counter for stairway searches. 
G: Fountain present flag. 
GA: Giant agility bonus. 
GD: Giant present flag. 
GN: Giant counter. 
GO: Your gold. 
GOT: Amount of gold you get 
when you open chest. 
H: Dummy variable for GET. 



HEAL: Number of uses of fountain 
finding slate. 

I/J: For/Next loop variables. 
JUMP: Agility value needed to 
avoid trap. 

LEVEL: Current level. 
LR: Defines level for room/tunnel 
searches. 

MH: Monster's base hit on you. 
MIR: Mirror possession flag. 
MST/MAG: Monster's strength and 
agility. 

Q: Current room. 
R: Command input variable. 
ST: Seed number for computing 
monster and trap values. 
STONE: Gargoyle stoner possession 
flag. 

T: Number of giants guarding the 
goddess. 

TR: Amount of gold in chest. 
TYPE: Directs program to type of 
monster or trap. 
W: Mirror use flag. 
WORM: Number of worms remain- 
ing. 

X: Flag to stop agility addition by 
fountain. 

YH: Your base hit on the monster. 
YST/YAG: Your strength and agili- 
ty. 

DOCUMENTATION 

Lines 5-70: Set up the array which 
holds the values for the room con- 
tents and tunnels of the catacombs. 
Line 100: Initializes various 
variables. 

Lines 110-270: Represent the main 
body of the program. They tell you 
which room you are in and what is to 
be found in that room. Lines 170-210 
search to see which rooms are con- 
nected by tunnels to the one you're 
in. Lines 215-230 print out those 
rooms. Lines 240 and 250 lead to a 
stairway search subroutines and Line 
260 is an error trap for inputs at line 
270. 
Lines 275-325: Are the command 



sorter, directing the program to other 
routines dependent upon your com- 
mand. 

Lines 330-361: Represent the move- 
ment routine. In Line 330 the pro- 
gram checks to see if the attempted 
movement was legal. Lines 340-360 
check to see if the monster hit you if 
you tried to run. 

Lines 370-415: Are the monster 
fighting routine. Line 402 saves the 
monster's new value, if you should 
decide to leave if half dead. This is set 
to when the monster is killed. Note 
the effects of agility in Lines 380-395. 
Lines 420-440: Determine how much 
gold you get out of the chest. Line 
420 prevents you from opening the 
chest more than once while in the 
room. Line 422 directs the program 
to check for traps. 
Lines 460-490: Check to see if the 
mirror can locate the Golden God- 
dess. It too can be used only once per 
room occupation (Line 462). 
Lines 510-520: Are the worm digging 
routine. Note that the use of worms is 
not without sometimes unexpected 
and unpleasant side effects. If you 
are digging into a room that you have 
previously explored which had other 
stairways, it is almost certain that the 
worm will wreck havoc with the other 
stairs, closing some or directing them 
to other rooms. 

Lines 530-540: Are where the gar- 
goyle stoner is employed. 
Lines 550-570: Are the fountain 
search routine. Note that the pro- 
gram will only tell you about the first 
fountain that it finds on each level. 
The others you will have to find the 
hard way. 

Lines 580-600: Make sure that there 
is a stairway to the room that you 
want to go to and then take care of 
the movement. 

Lines 1000-1097: Are the monster set- 
up routine. Note that the type of 
monster and its strength are derived 



from a single two-digit number. 

Lines 1100-1110: Determine how 
much gold is actually in a room's 
treasure chest. 

Lines 1200-1275: Determine if the 
treasure chest is trapped. Again the 
type of trap and its severity are stored 
in a single number. 
Lines 1340-1410: Are the phantom 
routines. Lines 1340-1350 tell you the 
phantom is there and then 1355 deter- 
mines which phantom you are con- 
fronting. Note that the earth tremor 
(Lines 1360, 1365) will probably close 
more tunnels than it opens. If you 
prefer a more generous tremor, 
reduce the 75. Also note that the 
phantom in any room can only be 
talked to once. 

Lines 1500-1540: Are the fountain 
routine. Note the experience-trading 
routine in Hues 1515-1530. On the 
first drink in a room you will gain 
some agility, but on subsequent 
drinks everything will go toward 
strength. Also note that you can 
drink a fountain dry, and if you do it 
disappears forever. The maximum 
number of drinks per time in a room 
is three, but it may be only one. 
Lines 1600-1640: Check to see if, 
after winning or dying, you want to 
try again. 

Lines 2000-2075: Print out the special 
information associated with the 
Golden Goddess's room. 
Lines 2500-2520: Check to see if there 
are stairs leading up from a room and 
then print them out. 
Lines 2600-2620: Check for stairs 
leading down. 

Lines 3000-3015: Just stop the pro- 
gram to let you digest the most recent 
events. 

Lines 4000-4120: Are the introduc- 
tory subroutine. The pokes in Line 
4010 set the color registers. They are 
used in place of setcolor statements 
to save memory. 



5 ? "SETTING UP." 


112 ? ■}■;? B»;' YOU ARE IN ROOM ^B;' 


180 FOR J=5 TO 9:IF A(Q,J)=A(I,J) THEN 


10 DIH A(59,9),P(59),A«(3),STAI(7),B«( 
9) 


, LEVEL •iLEVEL:F=0:FOR 1=0 TO 7:STAI( 
I)=0:NEXT I 


P(I)=1 
200 NEXT i 


20 FOR 1=0 TO 59:A(1,0)=1NT(RND(0)»90) 
:A(I,lt=INT(RND(0)t46)+l:A(I,2)=INT(RN 
D(0)t50):A(I,3)=INT(RND(0)tlS)-8 


120 ? "YOUR STRENGTH IS ^YST:? "YOUR 

AGILITY IS "lYAG 

125 ? ■EX=";EX)" 60LD=';8Q;' NORnS='j 


210 NEXT I 

215 ? "TUNNELS FROH ROOM "jB;" TO "; 

220 FOR I=LR-14 TO LR:IF PII)=1 THEN ? 


30 A(I,4)=INT(RND(0)t60) 

40 FOR J=S TO 9:An,J)=INT(RND(0lt50)i 

1 


MORH 

127 IF A(fl,0)>89 OR A(Q,0)=-5 THEN 200 




'(If 

230 NEXT l!? 
240 IF LEVELOl THEN SOSUB 2500 


50 NEXT J: NEXT I 

40 E=INT(RND(0)»30)+30:A(E,0)=98:T=INT 

(RND(0)»3)+1 


130 IF A (0,0X10 THEN ? 'NO HONSTER':G 

OTD 140 

135 GOSUB 1000 


250 IF LEVEL04 THEN GOSUB 2600 

260 TRAP 270 

270 ? :? "NHAT DO YOU HANT TO DO"i:INP 


70 GOSUB 4000 

100 Q=7:LEVEL=l:YST=100iYA6=12:EX=0:GO 

=0:NIR=0!WR«=3:eN=0 

110 E=INT(RNDI0)tl6) 

111 POKE 752,1:8A=0:8D=0 


140 IF A(Q,1)<=30 THEN SOSUB HOC 
150 IF A(Q,3)=9 THEN GOSUB 1500 
liO LR=(LEVEL»15)-1 

170 FOR I=LR-14 TO LR:P(I)=0!lF Q=I TH 
EN 210 


UT R 

275 IF R=103 THEN 530 

280 IF R>77 AND A(B,0)>=10 THEN ? "CAN 

•T DO THAT YET.": GOTO 270 

290 IF R=77 AND A(fl,0)>=10 THEN 370 

continued on next page 
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continued from previous page 

297 IF A(Q,0)<10 AND RN0(0)<0.45 AND A 
(Q,3)>0 AND A(fl,3)<9 THEN 1340 
300 IF R=88 THEN 420 
302 IF R=99 AND 6=1 THEN 1510 
305 IF R=10i THEN 460 
310 IF R=102 THEN 510 
315 IF Q=0 AND R=200 THEN ? 'YOU'RE OU 
T'sGOTO 2075 
320 IF R>104 THEN 550 
325 IF R<0 THEN 580 
330 IF P(R)<>1 THEN ? "CAN'T DO THAT!" 
:60TD 270 

340 IF A(0,0)>10 AND RNDtOXO.S THEN ? 
"NONSTER HIT yOU":yST=YST-INT(RND(0)l 
(NST/3)):F0R 1=1 TO 50:NEXT IiBOTQ 360 
350 IF A(Q,0)>10 THEN ? "ESCAPED" 

360 IF YST<1 THEN 396 

361 6=0:t(=0:l(=0:B=0!Q=R:LEVEL=INT(0/15 
l+l:DRIN):=INT(RND(0)t3)H:SETC0L0R 2,E 
,4:G0T0 110 

370 YH=INT(RND(0)tYST)+INT(YAG/3):HH=I 

NT(RND(0)tHST)tINT(HA6/2) 

380 IF NAG>YA6 THEN 395 

390 HST=HST-YH:YST=YST-IHT(RND(0)tHH): 

GOTO 396 

395 ? "NONSTER ATTACKS! "lYST^YST-HHtHS 
T=NST-lNT(RND(0)tYH) 

396 IF YST<1 THEN ? "YOU'RE DEAD!!!";6 



430 60T=INT(RND(0>tTR)^YA6iIF GDTHR T 

HEN GOT=TR 

440 ? "YOU GOT "(SOTf" PIECES OF BOLD. 

":TR=TR-60T!A(B,l)=INT((TR/2)/LEVEL):6 

0=G0fG0T;B=l:&0T0 3000 

460 IF HIROl THEN 270 

462 IF HM THEN ? "HON'T MORK N0M":G0T 

270 

465 ? "I AN SEARCHING FOR THE GOLDEN G 

0DDESS.':N=1 

470 IF RND(0)<0.55 THEN ? "I CAN'T FIN 

D IT.":G0T0 270 

480 FOR 1=0 TO 59: IF A(I,0)=98 THEN ? 

"IT IS IN ROON "ili", LEVEL "iINT(I/15 

)+l 

490 NEXT I: GOTO 270 

510 IF HORN=0 THEN ? "YOU USED ALL YOU 

R NORHS.":GOTO 270 

512 ? "THE MORN DIGS A BIG HOLE TO ROO 

H "(fl+15 

520 A(QMS,4)=A(B,4)iH0RH=N0RN-l:G0TD 

3000 

530 IF STONEOl THEN 270 

535 IF TYPE07 THEN ? 'SILLY!"iGOTO 27 



540 ? "GARGOYLE IS DEAD!":A(B,0)=0:STD 

NE=0:60T0 270 




DTO 1600 

400 IF NST>0 THEN ? "YST="iYST;" YAG=" 
;YAG:? •NST="iNSTi" HA6="; HAG: GOTO 402 

401 GOTO 410 

402 A(8,0)=INT((mST-TYPE)/TYPE)/LEVEL 
+TYPEtlO):GOTO 270 

410 ? "HONSTER'S DEAD!":A(Q,0)=0:EX=IH 

T(EX+TYPE»5+ST):IF 6D=1 THEN A(Q,0)=-5 

:GN=GNil:GOTO 2002 

415 GOTO 3000 

420 IF B=l THEN ? "THAT'S A NO-NO! ":60 

TO 270 

422 IF A(B,2I>=10 THEN GOSUB 1200 

425 fl(B,2)=0:? "THE CHEST SNAPS SHUT I 

N 5 SEC. " 



550 IF HEAL<1 THEN ? "NO G00D.":60T0 2 

70 

555 HEAL=HEAL-1 

560 FOR I=LR-14 TO LR:IF A(I,3)=9 THEN 

? "HEALING IN ROOM ";Ii60T0 270 
570 NEXT I:? "NO HELP ON THIS LEVEL."! 
GOTO 270 

580 ? :? "USE STAIRS TO WHICH ROON'pI 
NPUT R:FOR 1=0 TO 7 
590 IF STAI(I)=R THEN B=R:LEVEL=INT(B/ 
15)+liN=0iG=0!B=O!X=0!DRIHK=IHT(RND(0) 
t3)^l:SETC0L0R 2,E,4iG0T0 110 
600 NEXT I: GOTO 270 
1000 TYPE=INT(A(B,0)/10):ST=A(Q,0)-TYP 
EtlO 



1010 NST=STtTYPEILEVEL4TYPE:HA6=ABS(ST 

-TYPE)ILEVEL+6A 

1020 ? :? "THERE IS A "j 

1030 ON TYPE GOSUB 1060,1065,1070,1075 

,1080,1085,1090,1095,1097 

1040 ? " IN THE ROON.":? "HONSTER'S ST 

REHGTH="!HST:? "HONSTER'S A6ILITY="jHA 

G: RETURN 

1060 ? "GOBLIN"; :RETURN 

1065 ? "NOLF";: RETURN 

1070 ? ■ORC"i:RETURN 

1075 ? "BEAR")! RETURN 

1080 ? "OGRE";: RETURN 

1085 ? "TROLL"; :RETUfiN 

1090 ? "GARGOYLE" ;t RETURN 

1095 ? "DEHON";:RETURN 

1097 ? "GIANT"; :RETURN 

1100 TR=A(B,l)tLEVELt2 

1110 ? "THERE IS A TREASURE CHEST IN T 

HE":? "ROOH."!RETURN 

1200 TYPE=INT(A(B,2)/10);ST=A(B,2)-TYP 

EtlO 

1210 IF ST>5 THEN RETURN 

1220 ? "THE CHEST HAS TRAPPED NITH "; 

1230 ON TYPE GOSUB 1260,1265,1270,1275 

1240 IF RNDtOXJUHP THEN ? "YOU AVOIDE 

D THE TRAPI":RETURN 

1245 ? "IT GOT YOU!!! YOU SUFFER ";STt 

LEVEL+TYPE;" DAMAGE." 

1250 YST=YST-(ST«LEVEL+TyPE):YAG=YA6-D 

D: RETURN 

1260 ? "A POISONED":? "BLADE. ":JUNP=0. 

6: DD=0: RETURN 

1265 ? "FIRE."!JUHP=0.4:DD=liRETURN 

1270 ? "A BOULDER"!? "FROH THE CEILING 

.":JUNP=0.45!DD=2:RETURH 

1275 ? "POISONED":? "GAS.";JUHP=0.25:D 

D=3: RETURN 

1340 ? "THERE IS A Phantoi IN THE CORN 
ER.":? "IT'S INVISIBLE EXCEPT FOR A TR 
ENCH" 

1341 ? "COAT, SLOUCH HAT, GARTERS AND 
":? "BLACK STOCKINGS." 

1345 ? "DO YOU NISH TO TALK TO HER/IT" 
;: INPUT A» 

1350 IF A»(1,1)="N" THEN 300 

1355 ON A(B,3) GOTO 1360,1380,1385,138 

5,1395,1400,1400,1385 

1360 ? "SHE SCREAMS AND CAUSES AN EART 

H":? "TREHOR," 

1365 FDR 1=0 TO 59: FOR J=5 TO 6:fl(I,J) 

=INT(RHD(0)t75):NEXT J:NEXT I:A(fl,3)=0 

:GOTO 3000 

1380 ? "SHE KISSES YOU, SLIPS A SHALL" 

:? "MIRROR INTO YOUR HAND AND NUTTERS 

•A":? "GUIDE* AS SHE FADES." 

1382 ? "THE MIRROR BEARS THE IHSCRIPTI 

ON":? "CODE 101"!A(a,3)=0:HIR=l:G0T0 3 

000 

1385 ? "SHE KISSES YOU AND SLIPS A KNI 

FE":? "INTO YOUR BELLY! •:YST=yST-INT(R 

ND(01»(YST/2)):GO=GO-INT(SO/4) 



40 
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13B7 YA6=Yfl6-2:? "SHE STEALS SOHE GOLD 

T0O.'!ft(Q,3)=0:6OTO 3000 

1395 ? 'SHE BRUSHES AGAINST YOU, PURRI 

HB,":? 'AND SLIPS A VlflL INTO YOUR HAN 

D.' 

1397 ? 'ITS NOTE READS GARGOYLE STONER 

,')? 'CODE 103.'!AIQ,3)=0:STONE=1:60TO 

3000 

1400 ? 'SHE GIVES A HAUGHTY LAUGH AND 
DROPS':? 'A SLATE. IT BEARS THE NOROS" 
:? 'I FIND HEALING.CODE 104.' 
1410 A(Q,3)=0:HEAL=2:60T0 3000 
1500 ? :? "THERE IS A FOUNTAIN IN THE 
ROOH":? "NITH CLEAR RED NATER.':6=1:RE 
TURN 

1510 IF EUl THEN ? 'NO DICE.":GOTO 27 


1512 IF DRIHK=0 THEN A(B,3)=0:? "YOU U 
SED IT UP.": GOTO 3000 
1515 IF X^O AND EX>5 THEN EX=EX-5:YA6= 
YA6+5 

1520 IF EX>0 AND EX<=50 THEN YST=YST+E 
X:EX=0:8OT0 1540 

1530 YST=YST+50t(l+LEVELI0.3):EX=EX-50 

1540 ? "YOU TAKE A DRINK. ":DRINK=DRIKK 

-1:X=1:60T0 3000 

1400 ? 'DO YOU NANT TO TRY AGAIN*) :INP 

UT A$ 

UIO IF At(l,l)='N" THEN END 

1620 ? 'THE SANE TUNNELS";: INPUT A$ 
1430 IF A«(1,1)="N" THEN RUN 



1440 GOTO 100 

2000 IF A(Q,0)=-5 THEN ? "THE GIANT IS 
DEAD AND ROTTING.':? "IT STINKS!':BOT 
2050 

2002 IF GN>0 AND 6NOT THEN A(Q,0)=99: 
? 'THERE IS ANOTHER GIANT! !':GOTO 2005 

2004 IF 6D=1 THEN 2040 

2005 ? :? "YOU ARE IN THE SECRET ROOM! 
•:? :? "YOU HUST DEFEAT THE GIANT TO N 
IN THE":? 'GOLDEN GODDESS OF POKER." 
2010 6A=21:6D=1:G0T0 135 

2040 ? :? "YOU HAVE KILLED THE GIANT!" 

:? "THE GODDESS OF POHER IS YOURS." 

2050 ? 'A MISH IN THIS ROON HILL SEND" 

:? "YOU HOME," 

2040 ? "DO YOU HISH IT";: INPUT At 

2065 IF A»(1,1)="N" THEN 140 

2070 ? "CONGRATULATIONS! YOU HAVE CON- 

■:? "BUERED THE CATACOMBS OF THE PHANT 

ONS!" 

2075 ? "YOU HAVE ";G0;" PIECES OF GOLD 

.':? :? "GOOD LUCK!!":60T0 1600 

2500 FOR I=LR-29 TO LR-15 

2510 IF A(B,4I=A(I,4) THEN ? 'STAIRS U 

P TO "iI;",'i:STAl(F)=I:F=F+l 

2520 NEXT I:? : RETURN 

2600 FOR I=LR+1 TO LR+15 

2610 IF A(B,4)=A(I,4) THEN ? 'STAIRS D 

OHN TO "jI;",";:STAI(F)=IiF=F+l 

2620 NEXT I;? : RETURN 

3000 OPEN ll,4,0,"K:" 



3010 ? "PRESS A KEY TO CONTINUE. ":GET 

II, H 

3015 CLOSE tliGDTO 110 

4000 GRAPHICS 2:P0KE 752,1 

4010 POKE 708,166:POKE 711,122:P0KE 71 

2,228:P0KE 710,228 

4020 POSITION 6,1:? t6;"MeIcoM":? 16; 

to the' 
4030 ? #6;'\/\/\/\/\/\/\/\/\/\/" 
4040 POSITION 0,5:? 16;' citacnbs 
":? #6;" OF THE" 
4050 ? 16;' phantus" 
4055 POSITION 0,9:? l6;"/\/\/\/\/\/\/\ 
/\/\/\" 

4059 ? " by TON PLASSNAH" 

4060 FOR 1=1 TO 5:F0R J=0 TO 14 
4070 POSITION J,3:? #4; "danger" 

4072 SOUND 0,Jt2^50,10,B:SDUNS 1,150-} 

t2,i4,8 

4075 POSITION J+2,9;? I6;"run" 

4080 POSITION 0,3:? l6;"\/\/\/\/\/\/\/ 

\/\/\/" 

4085 POSITION 0,9:? #6;"/\A/\/\/\/\/\ 

/\/\/\" 

4090 NEXT J: NEXT I 

4100 SOUND 0,0,0,0:SOUND 1,0,0,0 

4105 SOUND 0,210, 10, lOzFOR 1=1 TO 175: 
NEXT I:SOUND 0,250,10,12 

4106 FOR 1=1 TO 170:NEXT I:SOUND 0,0,0 
,0 

4110 ? "Enter your naie in":? " The 8 
OOK Of The DEAD";: INPUT Bt 
4120 GRAPHICS 0:RETURN 
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Games from BIG FIVE will 
turn your computer into a 



SUPER NOVA 
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"Huge ASTEROIDS have invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they de- 
stroy you'" Our #1 top selling game! 

$15.95 16K Mod I or III 



TRS-80™ 
HOME ARCADE 

AHACK FORCE® GALAXY INVASION^ 
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Eight alien ramships are warping down 
toward your destroyer ship You must 
shoot them down quickly before they 
crush you'" With sound' 

$15.95 16K Mod I or III 
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"The newest and most exciting In- 
vaders-type game yet' Smooth sound 
effects, sharp graphics, and the Flag- 
ship alien from Super Nova combine 
to make this our finest TRS-80 game'" 

$15.95 16K Mod I or III 
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SAY YOHO 



by Scott Adams 

The 6th Annual San Francisco 
Computer Faire and The First An- 
nual Dallas Computer Show are now 
history, but oh what fun they were! 

San Francisco is a fantastic city, a 
hodgepodge of hills, parks, sky- 
scrapers, and great restaurants- This 
I'm sure helps to make The Com- 
puter Faire what it is every year. But 
more importantly it's the people. 
Both exhibitors and attendees were 
the real reason this Faire is the fan- 
tastic success it always is. 

This year I had the chance to meet 
some talented folks who help to make 
our industry what it is today. Bill 
Hogue of Big 5 Software, stopped in 
at our booth and said hello; it gives 
you a good feeling to meet Bill, as he 
quite likeable. It sounds like Bill, 
who has set some of the industry 
standards for arcade games on the 
S-80, has some big surprises coming 
up. Watch for them, they're bound 
to be great. 

I also had a chance to meet Ken 
and Roberta Williams of On-Line 
Systems. These are two of the most 
vivacious people to grace of our in- 
dustry. I'm sure you'll be hearing 
even more from them in the upcom- 
ing years. 

I didn't catch the final figures but I 
know the attendance was well over 
30,000 people. Amazing! We 
premiered our new six-booth Adven- 
ture Island Trading Post and it got a 
fantastic reception. It felt like every 
one of those 30,000 came through 
our booth! The booth is built on the 
order of a large thatched hut, com- 
plete inside with quadrasonic sound 
system with the sound of waves lap- 
ping on the shore and Polynesian 
music. If you get a chance to attend 
one of the 30 shows we are exhibiting 
at this year be sure and stop in and 
say hi! 

The First Annual Dallas Computer 
Show was a very good show consider- 
ing it was only its first year. Only one 
quarter the size of the San Fransisco 
Faire, the attendance was still quite 
high, with some very interesting ex- 
hibits. One such exhibit touches our 
industry only briefly: It was a 
computer-controlled four-seater elec- 
tric car built on the lines of a 
Maserati with a 100-150 mile range, 
complete with stereo, air condition- 
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ing and many other luxury features. 
Detroit watch out! 

While in San Francisco we stopped 
at Verbatim and learned how they 
make disks. 

The first step is to take large rolls 
of Dupont Mylar which are run 
through what looks like a mud bath. 
This mud bath contains the magnetic 
media and the adhesive that will hold 
it to the Mylar. Depending on the 
ultimate medium being made (disk or 
tape) the magnetic poles are aligned 
for tape or randomized for disk. The 
next step is the sheet goes through an 
oven to bake the materials on. Next, 
the roll is flipped over and the 
backside is done. The completed roll, 
called a web, is then taken to where it 
will be sliced up into many smaller 
rolls for use as computer tape, or to 
the disk punching room. Here the 
disks are punched out of the web by 
automated machines. The scraps are 
discarded. The flat disk media are 
then taken and one by one, have the 
microscopic hills and valleys smooth- 
ed out by hand. From this point on 
the work is very labor-intensive, pass- 
ing from hand to hand. Next the 
disks are put in their sleeves and then 
sent to certification. 

Depending on the disks, DataLife, 
regular, double density, etc., the 
disks are hand-loaded into the cer- 
tification machines and tested. If a 
disk fails on a side, it is then 
downgraded: i.e., double-sided disks 
become rated single-sided or double- 
density is marked single-density etc. 
Verbatim keeps a very close watch on 
the media from beginning to end. 
The web has a small piece cut off and 
filed away, each disk is then encoded 
with both a manufacture date and the 
web number that it originally came 
from. 

Another interesting piece of infor- 
mation is that besides the problem 
with the self cleaning sleeve dirtying 
the disk when you flip it around in a 
flippy drive, is the fact there is actual- 
ly a slight bow in all disks too. Ver- 
batim strongly suggests you do not 
use the backside of a disk in a flippy 
drive for any important data! 

One thing that surprised me was 
Verbatim's disk drive library. Here 
they have disk drives from every 
manufacturer in every model number 
so that they verify their disks will in 
deed work on all disk drives! Now 
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that makes sense! For those who 
haven't tried them yet. Verbatim's 
new DataLife disks, are absolutely 
top quality and I personally recom- 
mend them for all uses! While in 
Dallas I also had the chance to visit 
MOSTEC and see how they manu- 
facture memory chips. We only had 
time to see two out of the 14 
buildings, but it was an experience to 
remember. From start to finish the 
average chip goes through an amaz- 
ing number of quality-control steps. 
These folks really want to put out on- 
ly quality products! We also stopped 
at one of the many engineering ter- 
minals and looked into their games 
section. Yup, sure enough we found 
Adventure^", Zork™, Star Trek™ and 
all the other familiar games of the in- 
dustry! Happy Adventuring until 
next month. Yoho and away! Q 




Programming Hints 

To prevent lock-up due to ac- 
cidentally typing LLIST or 
LPRINT, simply POKE 16422, 
PEEK(164 14):POKE 
16423,PEEK(16415). 

After you do these POKEs, the 
computer ignores the LLIST and 
LPRINT as commands, and does 
nothing. 

Shane Causer 
Brunswick, GA 

To have sound for the S-80, 
without going to the trouble of 
Machine Language POKEing and 
string packing techniques, simply 
hook the AUX. plug into an 
audio amplifier and enter the 
following line: PRINT #-1," 
";END. You can put this into a 
program and use it as an audio 
prompt for input, or for alarms 
in a space game. This is extremely 
useful as a subroutine; sound is 
achieved by a simple GOSUB. 
Shane Causer 
Brunswick, GA 



APPLE ONE LINERS 

Integer 

1 POf(E 766,9: P(>(E 765,32: GR 
: FOR 1=1 TO 99;C= RND (16) 
: COLOR=C: fW£ 767,CiQ:X= Rf® 

(io):y= r^ (10): plot x,y: 
call -10173; plot 39-x,39- 

Y: CALL -10173: NEXT i: GOTO 

^ Jon Voskuil 

Milford, NH 

Applesoft 

HGRZ ; FOR C = 1 TO 7: HCOLOR= 
C; FOR X = TO 270 STEP 10 ; 
XI = 279 - X:Y = X X (191 / 

27?):yi = 191 - y: hplot x,y 

TO XI, Yl TO X,Y1 TO X,Y / 5 
TO Y / 2,Y TO 279, Y TO X,Yl 
TO Y;,Y1 to XI, 191 TO XI, Y TO 
Y,Yi; NEXT X,C; GOTO 1 

Kris Livingston 
Mason City, lA 

Applesoft 

HGR' : HCOLCW<= RM) (3) i 3 + 1 

:ZX = RM) (3) X 5 + 3: FOR 

I = TO 80 STEP ZZ: HFtOT 1 

10,0 TO 0,1 TO 110,80 TO 0,1 

+ 80 TO 110,159: f€XT : ?{S( 

I = 110 TO 279 STEP 6: HFIOT 

110,159 TO 1,0 TO 279,159: NEXT 

: GOTO 1 

Patrick Homer 

Pampa, TX 




fCOMPUTERS] 



APPLE II PLUS Computer, 48K RAM (#47-203) 51299.00 



[PERIPHERALS) 



SUP-R-MOD RF Modulator (#47-100) S34.95 

APPLE II Disk Controller w/Drive (#47-004) $619.00 

APPLE II Disk Drive (#47-005) $499.00 

LOBO Disk Drive (#47-31 01) $379.00 

MICROSOFT Z-80 SoftCard (#47-80) $269.00 

MICROSOFT RAMCard (#47-81) $159.00 

Integer BASIC Language Card (#47-IC) $195.00 

PASCAL Language Card (#47-PAS) $459.00 

MOUNTAIN COMPUTER Apple Clock (#47-MH003) $269.00 

MOUNTAIN COMPUTER ROMWrHer (#47-MH015) $169.00 

MOUNTAIN COMPUTER ROMPIus w/Filter (#47-MH007) $189.00 

MOUNTAIN COMPUTER Music System (#47-MH022) $519.00 

MOUNTAIN COMPUTER A/D + D/A (#47-MH023) $329.00 

MOUNTAIN COMPUTER Expansion Chasis (#47-MH024) $609.00 

HARDSIDE Memory Upgrade Kit (#5-1102) $49.00 

APPLE Silentype Printer w/lnlertace (#47-000) $569.00 

Parallel Printer Card and Cable (#47-9) $100.00 

CCS Arithmetic Processor (#47-781 1C) $399.95 

CCS Asynchronous Serial Interlace (#47-771 OA) $159.95 

CCS Synchronous Serial Interlace (#47-7712A) $159.95 

CCS GPIB (IEEE-488) Interlace (#47-7490A) $300.00 

CCS Calendar/Clock Module (#47-7424A) $125.00 

LYNX Communications Interface (#19-85) S229.00 

KURTA APPLE Graphics Tablet (#47-1000) $659.00 

VERSAWRITER (#47-1100) $239.00 

ALF AM-II Music Synthesizer (#47-1200) $189.00 

LEEDEX 12" B/W Monitor (#5-100) $159,00 

NEC 12" Monochrome Monitor (#5-200) $239.00 

Color Video Receiver (#26-3010) $389.00 
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6 South SI .Milford. NH 03055 (6031673-5144 
TOLL FREE OUT-OF-STATE 1 -800-256-1 790 



[^^S 



TERMS P(i(:(;s and apectdcalions are .luiect 1o change. HARDSIDE ac- 
cepts VISA & MASTERCARD Certified checks and Money Orders Personal 
i:tiec:V.s accepted (lakes 3 weeks to clear) HARDSIDE pays all shipping 
cturges fwilliin llie 48 stale.";) on all PREPAID orders over SlOO 00 On all 
orders undKr SlOO a 52.50 handling charge rnusl be added COD orders ac- 
copied (oideis ovei S250 re(.iuire 25% deposit), there is a lb, 00 handling 
charge. UPS Blue Label, and Air Freighl available at extra cosl, TRS-80 is a 
iradrnark o( Tandy Corp 
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AN ENTIRE STAR FLEET FOR $39.95. 

YOU'LL LOVE IT! 




Like some future starship 
admiral hurtling through the vast 
void of hyperspace at speeds 
beyond comprehension, you are 
challenged to a battle for cosmic 
supremacy. 

THE WAKP FACTOR, the latest 
computer strategy game from SSI, is 
what every space war fan has been 
waiting for - the ability to command 
a star fleet in realistic battle 
simulation against alien vessels 
It is light years ahead of all 



other "space" games because it 
doesn't just fill your screen with 
pretty pictures and little substance. 
THE W.ARP FACTOR is a high- 
powered tactical simulation that 
places you squarely in the Captain's 
role, dealing with the critical 
[parameters of interstellar battle 
such as sensor and scanner 
readings; energy allocation for 
weapons (phasers, disrupter bolts, 
photon and plasma torpedoes), 
shields and warp engines; and 
battle damage. 



THE STARSniPS. With twelve diffe- 
rent starship designs - ranging 
from dreadnoughts and fighters to 
star bases and base stations - 
representing five Qalactic Empires, 
you can set up an astronomical 
variety of confrontations against 
another player or the computer. 

Each class of vessels is awarded 
a point value to reflect its relative 
strength so you can assemble fleets 
of comparable power for a balanced 
game. Of course, your" re free to play 
the intrepid hero against seemingly 
hopeless odds -perhaps mere 
fighters against a star base! 

Employing up to ten ships, both 
sides can give individual or fleet 
orders, the latter allowing all your 
ships to execute your commands in 
unison. 

THE COMPUTER, aside from being 
the game's perfect administrator and 
referee, also serves as your ever- 
ready, ever-capable nemesis in the 
multiple solitaire scenarios provided: 
The Reman Chase (replete with the 
Cloaking Device, Plasma Torpedoes, 
and Neutral Zone); Attack on Star 
Base; Attack on Base Station; and 
Dogfight 

THE TWO-PLAYER VERSION is 

essentially free-form. With each 
player choosing starships from a 
different Empire, you can create 
scenarios ranging from space skir- 
mishes to a full-scale, all-out star 
war! 

FOR $39.95, THE WARP FACTOR is 
undeniably the most complete and 
detailed simulation of tactical star- 
ship combat yet designed. It comes 
with the 5U" program disc a 
Starship Operating Manual; 3 Star- 
ship Data Cards; and a Game 
Selection Card - all of which will 
convert your computer into the 
gateway to galactic adventure. 



THE WARP FACTOR" The Universe Awaits Your Command. 




^sr 
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6 South St .MiHord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



While you're at it you can also get our 
other games: 



FOR YOUR APPLE®: 

D Computer Bismarck: $59.95. 

D ComputerAmbush (a tactical sim- 
ulation of man-to-man combat in 
WWII): $59.95. 

D Computer Napoleonics, the Bat- 
tle of Waterloo: $59.95. 



D Computer Quarterback (a real- 
time strategy football game): $39.95. 

D Computer Conflict ( two modern- 
day tactical warfare simulations 
featuring REBEL FORCE and RED 
ATTACK!)- $39.95 

D Computer Air Combat (a simula- 
tion of air combat in WWII): $59.95. 

FOR YOUR TRS-80®: 
D Computer Bismarck, 48K Disc 
$59.95. 32 K Cassette: $49.95. 



Apple is a registered trademark of Apple Computer Inc. 



TRS-80 is a registered trademark of Tandy Corporation. 
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More Good Reasons to Receive SoftSide With Cassette or Disit 

You could always count on SoftSide to make it as simple as possible to get great software for your S-80, 
Apple or Atari computer. Now, when you subscribe to SoftSide on cassette or disl^ (let's just call it "SoftSide 
on Media" from here on ), you'll get more than ever. Over 2,000 people have taken advantage of the 
convenience of having their typing done for them by subscribing to SoftSide on IVIedia. We'd like you to sign 
up too. Here's how we've improved on it. 
Reason #1 

fAore programs for you and your computer, aiready typed in. 

(Programs that you won't find in SoftSide Magazine) 
SoftSide Magazine by itself will continue to bring you valuable programming hints; reviews of software and 
hardware;and code that's ready to type right into your computer, but you'll find many programs on the media 
that you won't find in the magazine or anywhere else. 

We've got lots of programs that we'd love to make available to you through the magazine, but, for one 
reason or another, they are just too cumbersome to be printed within our pages. 

Programs, for instance, that are written in machine code, or a hybrid code (our term for a program that 
prints fine but lists gibberish), or where the program is data intensive or data continual. 

You'll also find programs which were originally published for one particular computer but have since been 
converted to run on your computer (we'll put them on the media but not in the magazine). 
Reason #2 
We've Brought Down the Price of Subscribing to SoftSide on Disk. 

Imagine that. More product for less money. In order to get you to take full advantage of SoftSide in the 
environment for which it is intended, we've drastically reduced the cost of a disk subscription: 



Magazine & Disk, 


6 months: 


was $64, now $55 




12 months: 


was $125, now $99.95 


Magazine & Cassette 


6 months: 


$39 




12 months: 


$75 



Reason #3. 

The ease of a media subscription frees up your time so that you can do more with your computer (like 
putting our programming hints and how-to articles In the magazine to work, or maybe even writing for 
SoftSide I). 

No more hours of typing. No hunting for typing errors. The programs are tested and ready to go the day 
you receive them. 

We believe that SoftSide can have its fullest meaning, and be of maximum value to you when the 
magazine complements the media and vice versa. Each has a unique character and when blended with the 
other becomes something more than just a magazine and a disk — SoftSide on media may be the only 
software magazine you'll ever need. 

If you are already a SoftSide subscriber, you will receive credit for the remainder of your subscription 
when you send in your order. If you don't currently subscribe, take advantage of our low media rates while 
they last! 

Send check, money order, or bank charge number (don't forget to indicate whether you've got an S-80, Apple, 
or Atari) to: 

SoftSide Publications 

6 South Street 

Mllford, NH 03055 



SoftSide June 1981 



45 



Solution to Word- Search Puzzle #2 
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WORD LIST 


ABS 


NEW 


AND 


NEXT 


ASC 


NOT 


ATN 


ON 


CALL 


ONERR 


CHR$ 


OR 


CLEAR 


PDL 


CLS 


PEEK 


CONT 


POKE 


COS 


POP 


DATA 


POS 


DEFFN 


PRINT 


DELETE 


READ 


DIM 


REM 


ELSE 


RESTORE 


END 


RESUME 


EXP 


RETURN 


FOR 


RIGHTS 


FRE 


RND 


GET 


RUN 


GOSUB 


SAVE 


GOTO 


SGN 


HOME 


SIN 


IF 


SQR 


INKEY$ 


STEP 


INPUT 


POTS 


INT 


STR$ 


LEFl'S 


TAB 


LEN 


TAN 


LET 


THEN 


LIST 


TO 


LOAD 


USR 


LOG 


VAL 


MIDI 





This month's puzzle is on page 96. 
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CUSTOM TAPES 



by Ed Ting 



Gee, that's a great program. I've 
just got to save it for my permanent 
tape collection. Now to get a tape. 
Hmm... The only thing I have is that 
brand new 60-minute tape I bought 
yesterday. Can't waste that. I know, 
I'll just put it on this other tape with 
ten other programs on it. No, that 
won't work either; I'd never be able 
to find it. Guess I'll have to use up 
my new tape. But wait! I'm using the 
new tape for my program submis- 
sion! This is going to mean another 
trip down to the record store... 

I'll bet something like that happens 
to you every time you want to save a 
new program. Most of us end up 
bunching programs together on one 
tape or using one program per tape. 
The first method is excruciatingly in- 
efficient and confusing, the second 
too expensive and wasteful. 
Wouldn't it be nice to have short 
lengths of tape for individual pro- 
grams, just like the kind you get from 
The Software Exchange? 

Well, now there's a way. With just 
a little bit of patience and pratice, 
splicing your own tape can be both 
economical and enjoyable. The only 
items you'll need are: 

1) a tape splicer ($1.99 from Radio 
Shack, cat. no, 44-216) 

2) splicing tape (690 from Radio 
Shack, cat. nos. 44-1125 — 44-1127) 

3) a handful of old cassette cases 
These cases, even if you don't have 

any, should be easy to obtain. There 
are probably some old audio cassettes 
lying around the house that you'll 
never use. You can also buy them at 
cheapo department stores. They 
often sell three for a buck, so you can 
stock up on them quite easily. Just 
make sure that: 

1) they have plastic windows on the 
side, not flimsy slip-sheets which can 
damage tape, and 

2) they are the screw-together type. 
Here's how it's done. You'll need a 

"master reel" from which you'll 
splice out short lengths of tape to be 
fitted into your individual cassette 
housings. I have had enormous suc- 
cess with TDK's "D" and "AD" 
series. Get the 30 or 60-minute 
lengths. Longer lengths are too thin, 
and they stretch and stick too easily. 
First, unscrew the case of your 
master reel, save the screws, and tape 



Figure 1 



Push through (and cut 




Leader 



Tape 



Figure 2 



Master Reel 




Loose leader reels 



Connect these together 
Connect these together 




it firmly back together again. This 
case will be opened often in the 
future, and peeling off some masking 
tape is much less annoying than 
removing screws. 

Next, take your individual 
(cheapie) cassette housings. Unscrew 
them, save the screws, and open one 
of them up. Take a pair of scissors 
and snip off the free empty reel where 
the leader and tape meet. Then, push 
out the little plastic wheel through the 
center of the full reel and snip it in 
the same place. (See Figure 1.) 

Throw away the remaining tape. 
(Of course, it's always fun to play 
with it a while before throwing it 
away.) You now have (or should 
have) two little plastic wheels with the 
leaders running off them. Take these 
two wheels, along with the case, and 
set them aside for a moment. 

Determine the approximate length 
of the program on your recorder's 
digital counter. Place the master reel 
in the recorder, clear the counter, and 
fast-forward it until it reads about 1 5 
counts past the length of the pro- 
gram. (For example, if your program 
is about 40 counts long, then fast- 
forward the tape until it reads about 
55). Take out the master reel and 
bring it over to where your disassem- 
bled case is. Carefully open the 
master reel and snip the tape in the 
most convenient location, taking care 
to touch the least amount of tape 
possible with your fingers. Connect 
this end (if this is your first time, that 
would be the end with the LESSER 
amount of tape) and attach it to the 
end of one of the leader reels via your 

SoftSide June 1981 



tape splicer. (The splicer has very 
thorough instructions on it, so I 
won't go into details here. I will say 
this, though. The splicer is suppHed 
with a razor blade for cutting the 
spHcing tape. My advice to you about 
this razor blade is this — throw it 
away. Use scissors, they're much 
easier and they spare you the cut 
fingers.) (See Figure 2.) 

Now (carefully!) transport the 
spliced system into its new home. 
Tape up the case, bring it to your 
computer, and save your program on 
both sides. (The reason I said 
"tape", not "screw" the case back 
together is that something could have 
gone wrong despite your efforts, and 
you want to make sure that both 
copies of the program are working 
before you screw it back together 
again.) 

While this is happening, you'll 
want to "close up" your master reel. 
Connect the remaining plastic leader 
reel to the master tape reel and tape 
the whole thing up again. Store it for 
later use. This set of steps may seem 
mind-boggling to you at first, but 
after a few times, it will all be 
automatic. Your hands will work 
swiftly without your mind even 
thinking about it. 

Voila! You now have one program 
on one tape, with no waste, just like 
the kind you buy! I have built up 
quite a respectable software collec- 
tion using this method, and 1 hope 
you will, too. People are always ask- 
ing me how I get tapes in such short 
lengths. I sit back and smile. Now 
you know the secret, too. Q 
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OLD GLORY 



by William Morris and John Cope 

"Old Glory" is a graphics program 
with sound for the Apple, Atari, and 
S-80 which requires 16K. 

With Flag Day on June 14 and In- 
dependence Day on July 4, this is just 
the time of year for a little com- 
puterized patriotic fervor. Two of 
our Canadian friends, whose names 
should be familiar to regular SoftSide 
readers, have written this graphics- 
and-sound program in three versions 
to help all of us celebrate the occa- 
sion. The American flag is displayed 
on the screen in four of its incarna- 
tions, from the Betsy Ross original to 
the current version of Old Glory. 
While these are being displayed, 
"The Star-Spangled Banner" is 
played in the background to complete 
the effect. 

The S-80 version of the program 
requires an external speaker in order 
to play the music. This is very easy to 
hook up, using either a cassette 



recorder or a stereo system. The com- 
puter sends the audio signal out 
through the cassette-out cable (the 
larger gray plug), which normally 
connects to the "mic" jack of your 
cassette recorder. Plugging this cable 
into an "aux" input jack on your 
stereo system through an appropriate 
adapter or patch cord will give you 
the best sound. Or, you can use the 
cassette recorder itself, with just 
about any external speaker: Plug the 
computer cable into the mic jack as 
usual, and plug the speaker into the 
earphone jack. Then, to activate your 
makeshift amplifier, just start the 
recorder in the "record" mode. To 
do this, you'll either have to (a) insert 
an unused cassette first (in which case 
the sound will be recorded on the 
cassette as well as played through the 
speaker), or (b) just reach into the 
cassette compartment and push back 
on the little metal or plastic finger in 
the back left-hand corner, which will 



then allow you to press the "record" 
key. 

The Apple and Atari versions are, 
of course, in full color, and use the 
normal sound facilities of the 
machines. The Apple plays through 
its built-in speaker, and the Atari 
though the television speaker. 
There's no question that Atari 
owners get the best deal with this pro- 
gram, since they get the whole show 
not only in color but with four-part 
harmony as well! 

VARIABLES 

J, K, L, M: Tone variables (Atari 
version). 

JE, JF, JG, JH: Graphics strings 
(S-80 version). 

UL, UN: Length and pitch of notes. 
V: Counter which keeps track of 
data pairs read. 

W, X, Y, Z: Used for plotting posi- 
tions and loop counters. 
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S-80 Version 



Set error-handling routine and print title. 

10 CLS:CLEflR1000:DEFSTRA-J:DEFINTV-Z:0N ERROR GOTO 19999 

20 PRIHTCHRt(23)iPRIMTJBt,"0LB GL0RV:PRINm56,'THE STAR SPANBL 

ED BflNNER"!PRINT8B9B,'IC) NN. HDRRIS & J. COPE 198r:FORZ=lT0200 

0:NEIT 

Set up graphics strings and inn the basic outline of the flag. 

100 CLS!JA=CHR$(170)+STRING$(62,129)+CHR»(149):JB=CHR»(170)+STRI 

N6«(24,32)+STRINB»(38,1B8)+CHR»(149)!JC=CHR»(170)+STRING»(24,32) 

+STRlNG»(3B,131)+CHR»(149liJD=CHR$(170)+STRING$(62,lBB)+CHRt(149 

) 

110 JE=CHR$(170)+STRING»(62,131)+CHR»(149);JF=CHR$(13B)+STRINBt( 

62,132):JG=CHR»(170)+STRING»(24,32)!JH=CHRt(170)+STRING«(24,188) 

120 PRIHTJA;iF0RZ=lT03:PRINTJBiJC;:NEXT:F0R2=lT03:PRINTJDiJEi;NE 

XT:PRINTJF|!POKE16255,133iGOSUB30000 

Draw the stars for the Betsy Ross flag. 

160 F0RZ=1T013;READX,Y!PRINT8X,CHR«(Y);:NEXT 
170 PRIMTJ97B,"THE BETSY ROSS FLAG 1777'i 

Read in data for notes to be played. Call subroutine to play 
notes and subroutines to drait different versions of the flag. 

200 READUN, UL: G0SUB30100: V=V+1 : IFV=2S60SUB300 
210 IFV=50GOSUB400 
220 IFV=73G0T0500 
230 60T0200 

Read data for notes and for concurrent plotting points for the 
19B1 flag. 

240 READUN,UL,N,X,Y,Z:G0SUB30100:SET(H,X):SET(H41,X):SET(Y,Z);SE 
T(Y+1,Z):G0T0240 

DraN the Star-Spangled Banner, adding stripes and extending the 
field. 

300 60SUB600:PRINT3448,J6;:PRINTS512,JG;:F0RZ=4TD36STEPU:F0RY=4 

T024STEP10:SET(Z,Y):SET(Z+1,Y);NEXT!NEXT 

310 F0RZ=12T044STEPlt:FORY=9T019STEP10:SET(Z,Y)!SET(Z+l,Y)iHEXT: 

NEXT 

320 PRINT3768,JE;JD;JE;JF;iP0KE16383,133:PRINT3977,'THE STAR SPA 

NGLED BANNER 179S ■;:RETURN 

DraN the revised flag of IBIB. 

400 6OSUB600:PflINT8S12,JE;JD;:F0RZMT044STEP10:F0RY=2T01BSTEP5iS 

ET(Z,Y):SET(Z+1,Y):NEXT:NEXT 

410 PRINT}76B,JE;JF;CHRt(133);CHR((25S):P0KE16319,32:PRINT3980,' 

THE REVISED FLAG 1B1B';:RETURN 



Draw the current version of Old Elory. 

500 G0SUB600:PRINTa9B0," OLD BLORY 1981 ■|:60T0240 
Subroutine to erase stars. 

600 PR1NTJ0,JA;;F0RZ=64T0384STEP64:PRIHTJZ,J6;:NEXT:PRINT3448,JH 
;: RETURN 

Data for notes and plotting points. 

1000 DATA 17,121,45,14,255,33,1,1,45,122,237,97,67,16,254,237,10 

5,67,16,254,61,32,243,21,32,239,201 

1010 DATA12, 141, 17, 177,84, 176,213,131,276, 140,338, 140,398, 131,39 

4,131,327,140,260,140,195,131,68,176,7,177 

1020 DATA162, 19, 193, 10,243,18, 193,20,162,22, 121,36 

1030 DATA96,25, 108, 13,121,25, 193,20,173,21,162,31 

1040 DATA162,19,162,11, 96,35,108,19,121, 26,128,35 

1050 DATA144,20, 128, 13, 121,26, 121,26, 162,22, 193,20,243,22 

1060 DATA162, 19, 193, 10,243, 18, 193,20, 162,22, 121,36 

1070 DATA96,25, 108, 13,121,25, 193,20, 173,21,162,31 

1080 DATA162, 19, 162, 11,96,35, 108, 19,121,26,128,35 

1090 DATA144,20, 128, 13, 121,26, 121,26, 162,22, 193,20,243,22 

1100 DATA96,25,96, 14,96,29,91,30,81,31,81,39 

1110 DATA91, 21, 96,29,108,27,96,29,91, 30, 91, 42 

1120 0ATA91, 30, 96, 35, 108, 19, 121, 26, 128, 35 

1130 DATA144,20,128,13,121, 26,193,20,173,22,162,31 

1140 DATA162,22,4,2,12,2,121, 26,20,2,28,2,121, 26,36,2,44,2,121,1 

8,8,4,16,4,128,18,24,4,32,4,144,24,40,4,40,4,144,24,4,6,12,6,144 

,24,20,6,28,6 

1150 DATA10B,27,36,6,44,6,91, 21, 8,8, 16,8,96,20,24,8,32,8, 108, 19, 

40,8,40,8,121,18,4,10,12,10,121,26,20,10,28,10,128,35,36,10,44,1 



1160 DATA162, 16,8, 12,16, 12, 162, 16,24, 12,32,12,121,31,40, 12,40, 12 

,108,19,4,14,12,14,96,20,20,14,28,14,91,21,36,14,44,14,81,44,8,1 

6,16,16 

1170 DATA121, 18,24, 16,32, 16,108, 19,40,16,40,16,96,35,4,18,12,18, 

91,21,20,18,28,18,108,27,36,18,44,18,121,45,36,18,44,18 

Error-handling routine: Hhen data are all read, this line 
freezes the display briefly and then RUNs the prograi again. 

19999 FORZ=1T03000:NEXT:RUN 

Subroutii^e to poke in Machine Language sound-generating routine. 

30000 JH=":F0RZ=lT027:READY:Jlt=JN+CHR«(Y)!NEIT:IFPEEK(16396)=20 

1THEN30030 

30010 C(ID"T"!U=VARPTR(JH):U=PEEK(U+2)I256+PEEK(U+1):IFU>32767THE 

NU=U-65536 

30020 OEFUSRO=U: RETURN 

Subroutine to generate proper note. 

30030 U==VARPTR(JH):PaKE16526,PEEK(U4ll:P0KE16S27,PEEK(U^2):U=PEE 

K(U>2)<2S6^PEEK(U^l)iRETURN 

30100 POKEUH , UN: P0KEU^2, UL: US=USR (0) : RETURN 



Apple Version 



Set error-handling routine and 
print title. 



10 TEXT : HONE : 60SUB 3000: ONERR 
GOTO 2000 



20 VTAB 3: HTAB 16: NORHAL : PRINT 
•OLD GLORY": VTAB 12: HTAB 8 
: FLASH : PRINT "THE STAR SP 
ANGLED BANNER': VTAB 22: HTAB 
6: NORMAL : PRINT '(C) UN NO 
RRIS ti J. COPE 1981': FOR Z = 
1 TO 2000: NEXT 



Plot the basic outline of the flag. 



100 6R : COLORE 2: FOR Z = TO 

17: HLIN 0,17 AT Z: NEXT : COLOR= 
1: FOR Z = TO 17 STEP 6: FOR 

Y = TO 2: HLIN 18,39 AT (Z 
+ Y): NEXT : NEXT 

110 FOR Z = IB TO 36 STEP 6: FOR 

Y = TO 2: HLIN 0,39 AT (2 + 
Y): NEXT : NEXT 

continued on next page 
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49 



continued from previous page 


300 BOSUB 600: FOR Z = 18 TO 23: 


1020 DATA 96,192,108,64,121,2 




HLIN 0,17 AT Z: NEXT : COLOR= 


55, 193,255,173,255,162,255, 


120 COLOR= 15: FOR Z = 3 TO 17 STEP 


15: FOR Z = 4 TO 21 STEP 8: FOR 


0,0 


i: FOR Y = TO 2: HLIN 18,3 


Y = 1 TO 13 STEP 6: PLOT Y,Z 


1030 DATA 162,128,162,128,96,2 


9 AT (Z + Y): NEXT : NEXT 




55,108,255,121,255,128,255,0 


130 FOR Z = 21 TO 36 STEP 6: FOR 


: NEXT : NEXT 


,0 


Y = TO 2: HLIN 0,39 AT (Z + 


310 FOR Z = 8 TO 16 STEP 8: FOR 


1035 DATA 144,128,128,128,121 


V): NEXT : NEXT 


Y = 4 TO 17 STEP 6: PLOT Y,Z 


,255,121,255,162,255,193,255 




: NEXT : NEXT 


,243,255 




320 HOHE : POKE - 16302,0 


1040 DATA 162,192,193, 64,243, 


Plot the stars for the Betsy Ross 


330 COLOR= 15: FOR Z = 39 TO 41: 


255,193,255,162,255,121,255, 


flag. 


HLIN 0,39 AT Z: NEXT : COLOR= 


0,0 




1: FOR Z = 42 TO 44: HLIN 0, 


1050 DATA 96,192,108,64,121,255 




39 AT Z: NEXT : COLOR= 0: FOR 


,193,255,173,255,162,255,0,0 


160 HONE : VTAB 22: HTAB 10: PRINT 


Z = 45 TO 47: HLIN 0,39 AT Z 


1060 DATA 162,128,162,128,96,25 


■BETSY ROSS FLAB ';: INVERSE 


! NEXT : FOR Z = 1 TO 300: NEXT 


5,108,255,121,255,128,255,0, 


: PRINT "1777": NORHAL 


: RETURN 





170 PLOT B,l! PLOT 10,2: PLOT 11 




1080 DATA 144,128,128,128,121 


,4: PLOT 12,7: PLOT 12,10: PLOT 




,255,121,255,162,255,193,255 


11,13: PLOT 9,15: PLOT 7,15: 


DraM the Revised flag of 1818. 


,243,255 


PLOT 5,13i PLOT 4,10: PLOT 




1090 DATA 96,192,96,64 ,96,255 


4,7: PLOT 5,4: PLOT 6,2 




,91,255,81,255,81,255,0,0 




400 POKE - 16301,0: HONE : COLOR= 


1095 DATA 91,128,96,128,108,255 


Read in data for notes to be 


0: HLIN 0,39 AT 39: COL0R= 1 


,96,255,91,255,91,255,0,0 


played; pause betmen versions of 


: FOR Z = 18 TO 20: HLIN 0,1 


1100 DATA 91,255,96,255,108,255, 


the flag (Hhen datui read into UN 


7 AT Z: NEXT : COLOR= 15: FOR 


121,255,128,255,0,0 


is zero). 


Z = 21 TO 23: HLIN 0,17 AT Z 


1110 DATA 144,128,128,128,121, 




: NEXT 


255,193,255,173,255,162,255 




410 BOSUB 600: COLOR= 15: FOR Z = 




200 READ UM,UL: IF UN = THEN FOR 


2 TO 14 STEP 4: PLOT 2,Z: PLOT 


1130 DATA 162,255,1,1,4,1,121,2 


Z = 1 TO 650! NEXT i 60TO 20 


5,Z: PLOT 8,Z: PLOT 11, Z: PLOT 


55,7,1,10,1,121,255,13,1,16, 





14, Z: NEXT 


1,121,128,2,3,5,3,128,128,8, 




430 HOHE : VTAB 22: HTAB 10; PRINT 


3,11,3,144,255,14,3,14,3,144 




■THE REVISED FLAB ■;: INVERSE 


,255,1,5,4,5,144,255,7,5,10, 


Call subroutine to play notes and 


: PRINT "laiS": NORHAL ; FOR 


5 


subroutines to drati different 


Z = 1 TO 300: NEXT : RETURN 


1140 DATA 108,255,13,5,16,5,91, 


versions of the flag. 




128,2,7,5,7,96,128,8,7,11,7, 
108,128,14,7,14,7,121,128,1, 
9,4,9,121,255,7,9,10,9,128,2 


202 BOSUB 4000: V = V + 1: IF V = 


DraM the current version of Old 


55,13,9,16,9 


23 THEN HONE : VTAB 22: HTAB 


Blory, 


1150 DATA 162,128,2,11,5,11,162 


7: PRINT -STAR SPANGLED BANN 




,128,8,11,11,11,121,255,14,1 


ER ";: INVERSE : PRINT "1812 


500 HOHE : BOSUB 600: VTAB 22: HTAB 


1,14,11,108,128,1,13,4,13,96 


': NORNAL 


16: PRINT "OLD BLORY": PRINT 


,128,7,13,10,13,91,128,13,13 


205 IF V = 25 THEN BOSUB 300 


: HTAB IB: INVERSE : PRINT " 


,16,13,81,255,2,15,5,15 


210 IF V = 50 THEN BOSUB 400 


1981": NORHAL : COLOR= 15: FOR 


1160 DATA 121,255,8,15,11,15,108 


220 IF V = 73 THEN 500 


Z = 1 TO 300: NEXT ; BOTO 24 


,255,14,15,14,15,96,255,1,17 


230 BOTO 200 





,4,17,91,255,7,17,10,17,108, 




598 STOP 


255,13,17,16,17,121,255,13,1 




Subroutine to erase stars. 


7,16,17 


Read data for notes and for 






concurrent plotting points for the 
1981 flag. 


600 COLOR= 2: FOR Z = TO 17: HLIN 


Error-handling routine: Hhen data 




0,17 AT Z: NEXT : RETURN 


are all read, this line freezes the 
display briefly and then RUNs the 


240 READ UN,UL,H,X,Y,2: 60SUB 40 


Data for notes and plotting points. 


prograi again. 


00: PLOT ll,X: PLOT Y,Z: BOTO 






240 


1000 DATA 173,48,192,136,208,5, 






206,1,3,240,9,202,208,245,17 


2000 FOR Z = 1 TO 5000: NEXT : RUN 




4,0,3,76,2,3,96 




DraM the Star-Spangled Banner, 


1010 DATA 162,192,193,64,243 




adding stripes at the bottoi and 


,255,193,255,162,255,121,255 


Subroutine to poke in Hachine 


extending the field. 


,0,0 


Language sound-generating routine. 



50 
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3000 FOR X = 770 TO 790: READ Z: 


2:PL0T 29,22:PL0T 45,22 


2070 DATA 96,128,162,182,96,128,162,18 


POKE t,h NEXT 


330 PLOT 21,30:PL0T 37,30:PL0T 52,30:C 


2,121,142,193,243,121,162,193,243 


3010 HOnE : RETURN 


OLOR 2:PL0T 13,38:PLflT 29,38:PL0T 45,3 


3000 DATA 47,81,121,243,47,81,47,243,4 




8: COLOR 3 


7,81,121,243,47,81,121,243,45,60,81,21 




350 COLOR 3: BOTO 170 


7,45,60,81,217 


Subroutine to poke in note and 


400 ? CHR»(125);CHR»(29);" 1818 


3010 DATA 40,60,40,193,40,60,40,193,40 


length, and call tone routine. 


THE REVISED FLA8":C0L0R 4:F0R 2=74 TO 


,60,81,193,40,60,81,193,40,40,81,193,4 




65 STEP -1:PL0T 5,Z:DRAHT0 154,Z:NEXT 


5,60,81,217,47,60,81,243,47,60,81,243 




2 


3020 DATA 53,64,81,162,53,44,81,142,47 


4000 POKE 76B,UN: POKE 769,UL: CALL 


405 COLOR 1:F0R X=44 TO 40 STEP -1:PL0 


,60,81,162,47,60,81,142,45,53,81,142,4 


770: RETURN 


T 5,X:DRANT0 60,X:NEXT X:COLOR 2:F0R X 


5,53,81,142,45,44,81,142 




=39 TO 35 STEP -1:PL0T 5, X: DRANTO 60, X 


3030 DATA 45,44,81,142,45,44,81,142,45 




406 NEXT X 

410 FOR 2=7 TO 28 STEP 7:F0R Y=14 TO 5 


,40,81,144,45,53,81,128,45,53,81,128,4 
7,40,81,243 




Atari Version 


2 STEP 9:PL0T Y,Z:NEXT Y:NEXT Z:COLOR 


3040 DATA 47,40,81,243,47,60,81,243,53 




3: BOTO 320 


,64,91,217,60,81,94,193,40,81,94,173,4 


Underlined characters 


500 ? CHR$(125liCHR«(29);" 


4,81,108,142,44,81,108,142,44,81,108,1 


should be typed in reverse 


OLD SLORY ■ 


42 


video using the Atari logo key. 


505 ? ■ fm* 


3050 DATA 72,81,121,162,64,81,108,182, 




510 COLOR 3: GOTO 410 


44,81,108,182,40,81,121,193,60,81,121, 


10 TRAP W:60SUB 30200:P0KE 87,2:P0SI 


999 FOR 2=0 TO 3:S0UND 2,0,0,0:NEXT 2: 


193,94,121,144,243,94,121,144,243 


TIDN 6,1:? lAi'old glory" 


FOR 2=1 TO 2000:NEXT 2:RUN 


3040 DATA 85,108,121,217,85,108,121,21 


20 POKE 87,1:P0S1TI0N 2,i:? I6;"lhe 5t 


1000 DATA 81,108,128,162 


7,81,108,128,142,81,108,128,142,81,108 


ar 5Danaled':P0SITION 7.7:? lii'tannfic 


1005 DATA 81,108,128,162,96,108,128,16 


,128,142,81,108,128,142 


':POKE 752,1 


2,121,162,193,243,121,162,193,243,96,1 


3070 DATA 81,108,81,162,7,5,81,108,81, 


30 POKE 87,0:P0SITI0N 5,14:? "(c) Hi. 


21,162,193,96,121,162,193 


182,17,5,60,81,121,193,27,5,40,81,121, 


Harris ( J. Cope 1981' 


1010 DATA 81,108,128,162,81,108,128,16 


193,37,5,40,94,40,243 


40 FOR 2=1 TO 3000:NEn Z:F0R Z=0 TO 3 


2,60,96,121,144,60,96,121,144,60,96,12 


3075 DATA 47,5,40,94,40,243,57,5 


:SOUHD Z,240,6,8:NEXT Z 


1,144,60,96,121,144 


3080 DATA 40,81,121,193,12,8,44,81,121 


100 GRAPHICS 7:SETC0L0R 0,3,0:SETC0L0R 


1020 DATA 47,64,96,153,53,64,96,153,60 


,193,22,8,72,91,121,182,32,8,72,91,121 


1,0,8:S£TC0L0R 2,7,0:SETCflL0R 4,7,4 


,72,96,243,60,72,96,243,96,121,193,243 


,182,42,8,72,91,72,217,52,8 


110 COLOR 3:PL0T 60,34:0RAIIT0 60,0:DRA 


,96,121,193,243,85,108,121,217 


3085 DATA 72,91,72,217,7,11,72,81,114, 


HTO 5,0:P0SITI0N 5,34:P0KE 765,3:1(10 1 


1030 DATA 85,108,121,217,81,108,128,16 


193,17,11,72,81,114,193,27,11 


8,I6,0,0,"S:' 


2,81, 108, 128, 162,81, 108, 128, 182,81, 108 


3090 DATA 53,91,108,217,37,11,53,91,10 


120 Y=0iF0R Z=0 TO 12:X=Zt5:Y=Y+l:IF Y 


,128,182 


8,217,47,11,45,72,108,217,57,11,47,72, 


=3 THEN Y=l 


1040 DATA 81,108,81,193,81,108,128,217 


114,193,12,14,53,72,108,182 


130 K=5:IF X<35 THEN N=61 


,47,60,81,243,47,60,81,243,47,60,81,24 


3095 DATA 22,14,40,72,102,173,32,14 


140 COLOR Y:PLOT 154,X+4:DRAHT0 154, X: 


3,53,64,91,217,60,72,96,193,60,72,96 


3100 DATA 60,81,96, 162,42; 14,40,81,96, 


DRANTO «,X:POSITION M,X+4:P0KE 765,Y:X 


1050 DATA 193,64,81,108,162,64,81,108, 


162,52,14,44,81,108,142,7,17,44,81,108 


ID 18,16,0,0, 'S:":NEXT Z 


162,64,81, 108, 162,72,81, 121, 162,64,81, 


,142,17,17,64,81,108,162,27,17 


150 FOR Z=0 TO 3: SOUND Z,250,6,40:S0UN 


108,162,64,81,108,162 


3105 DATA 64,81,108,162,37,17 


D Z,0,0,0:NEXT Z:FOR Z=l TO 500:NEXT Z 


1060 DATA 60,81,121,193,60,81,121,193. 


3110 DATA 81,91,128,162,47,17,81,91,81 


160 POKE 752,1:? CHR»(125);CHR«(29);" 


60,81,60,193,60,81,60,193,81,108,128,1 


,182,57,17,60,81,121,193,12,20,60,81,1 


17711 THE BETSY ROSS FLflO": COLOR 2 


62,81,108,128,162 


21,193,22,20,60,81,121,193,32,20 


170 PLOT 32,3;PL0T 39,5:PL0T 46,9:PL0T 


1070 DATA 96,128,162,182,96,128,162,18 


3120 DATA 53,81,128,217,42,20,47,81,12 


48,16:PL0T 47,23:PL0T 42,29:PL0T 36,3 


2,121,162,193,243,121,162,193,243 


1,243,52,20,45,81,121,217,7,23,40,81,1 


2 


2000 DATA 81,108,128,162,96,108,128,16 


21,193,17,23,40,81,121,193 


180 PLOT 24,5:PL0T 19,9:PL0T 16,16!PL0 


2, 121, 162, 193,243, 121,162, 193,243,96, 1 


3125 DATA 27,23,40,81,121,193,37,23 


T 17,23:PL0T 22,29:PL0T 28,32 


21,162,193,96,121,162,193 


3130 DATA 60,96,121,193,47,23,53,91,12 


200 READ >1,K,L,«:S0UND 0,J,10,6:S0UND 


2010 DATA 81,108,128,162,81,108,128,16 


8,162,57,23,53,91,128,162,12,26 


1,K,10,4:SOUND 2,L,I0,2:S0UND 3,«,10,2 


2,60,96,121,144,60,96,121,144,60,96,12 


3140 DATA 47,81,121,162,22,26,47,81,12 


210 V=V+1:IF V=48 THEN SOTO 300 


1,144,60,96,121,144 


1,162,32,26,47,81,121,162,42,26,45,72, 


220 IF V=96 THEN SOTO 400 


2020 DATA 47,64,96,153,53,64,96,153,60 


108,144,52,26,53,91,128,142 


230 IF V=145 THEN BOTO 500 


,72,96,243,60,72,96,243,96,121,193,243 


3145 DATA 7,29,53,91,128,162,17,29 


240 IF V>145 THEN READ X,Y:CGLOR 2:PL0 


,96,121,193,243,85,108,121,217 


3150 DATA 60,96,121,243,27,29,60,94,12 


T X,Y 


2030 DATA 85,108,121,217,81,108,128,16 


1,243,37,29,40,94,121,243,47,29,60,96, 


250 FOR Z=l TO 100:NEXT Z:60TO 200 


2,81, 108, 128, 162,81, IDS, 128, 182,81, 108 


121,243,57,29,60,96,121,243,57,29 


300 ? CHR$(125);CHR»(29);" 1795 THE 


,128,182 


3140 DATA 40,94,121,243,57,29,40,94,12 


STAR SPAN6LED BANNER" :Y=1: FOR Z=13 TO 


2040 DATA 81,108,81,193,81,108,128,217 


1,243,57,29,40,96,121,243,57,29,60,96, 


14:X=Z«5:Y=Y+1:IF Y=3 THEN Y=l 


,47,60,81,243,47,60,81,243,47,60,81,24 


121,243,57,29,60,96,121,243,57,29 


310 COLOR Y:PLOT 154, X +4: DRANTO 154, X: 


3,53,64,91,217,60,72,96,193,60,72,96 


30200 GRAPHICS 0:SETC0LOR 2,3,1:SETC0L 


DRANTO 5,X:P0SITI0N 5,Xt4:P0KE 765,Y:X 


2050 DATA 193,64,81,108,162,64,81,108, 


OR 4,3,l:UB=PEEK(560)tPEEK(56U»254+4i 


10 18,I6,0,0,"S:":NEXT Z 


162,64,81,108,162,72,81,121,162,64,81, 


POKE UB-1,70:P0KE UB+2,7!P0KE UB+3,7 


315 COLOR 3:FQR X=35 TO 44:PL0T 5,X:DR 


108,162,64,81,108,162 


30210 FOR U2=4 TO 8:P0KE UB+U2,6:NEXT 


A«0 iiO.X-.HEU l-.CQLQR 2 


2060 DATA 60,81,121,193,60,81,121,193, 


U2:P0KE UB+22,45:P0KE UB+23, PEEK (540): 


320 PLOT 13,6:PL0T 29,6:PL0T 45,6:PL0T 


60,81,60,193,60,81,60,193,81,108,128,1 


POKE UB+24,PEEK(541):SETC0L0fi 3,8,4 
30220 RETURN © 


21,14:PL0T 37,14:PL0T 52,I4:PL0T 13,2 


62,81,108,128,162 
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LEMONADE OR CHAMPAGNE 



Will Hagenbuch has been in the 
software business for some time now, 
writing business and utility programs 
such as "File Manager 80", "Ac- 
counts Receivable", and "Utility". 
SoftSide is proud to serialize his book 
Lemonade or Champagne, a guide to 
the creation of business software. 




by Will Hagenbuch 

Note: "Lemonade" is an adjective 
often coupled with the operation of a 
microcomputer business. Its con- 
notation may sometimes be con- 
strued to indicate that the 
"Lemonade Entrepreneur" is 
something less than "professional. I 
take my TRS-80 seriously, and I 
would hope that, by employment of 
some of the techniques described in 
the following pages, we might dispel 
some of that thinking. 

If you are over 25 years of age, 
then you were born B. C. (Before 
Computers)! In case you have never 
pondered this point, let's very briefly 
explore the history of computers and 
automated business data processing. 

The first computers became 
available for business use during the 
middle to late 1950's. Only the 
"rich" were able to afford these early 
monsters. However, during the 
1960's, miniaturization technology 
brought us "time-sharing" and the 
mini-computer. Computers, or at 
least computer power, became 
available to the "not-so-rich". But, 
52 



during the 1970's, a real phenomenon 
occurred; the Personal Home Com- 
puter placed the heretofore inac- 
cessable or unavailable at the finger- 
tips of anyone with the price of a 
used automobile — and from the 
looks of our highways that must 
mean almost everyone. 

Back in the I960's, I heard the 
profound statement that "more 
engineers are living today than have 
lived during the entire course of 
history." I'll venture that the same 
statement will be true of program- 
mers — EVERY YEAR OF THE 
NEXT DECADE! The Personal 
Home Computer (which, from here 
on out, we will refer to simply as the 
microcomputer) has made, or will 
make, this possible. 

True, the definition of "program- 
mer" has changed somewhat. Today, 
it is almost anyone who has altered a 
BASIC statement or "SUPER- 
ZAPed" memory, but in those early 
days we were all paid professionals 
(I'll take poetic license by using the 
term "professional") because we 
worked on the "rich guy's" equip- 
ment. During this era, we had a big 
thing about professionalism and how 
to attain professional status in the 
eyes of the world, I often wonder if 
this were really the case, or if we were 
just jealously guarding a good thing. 
After all, on the QT (and usually 
when drinking), one programmer 
could quite often be heard admitting 
to another, "Don't tell any outsiders 
how easy this is, or they will all be do- 
ing it!" Well, the phenomena of the 
1970's has let the proverbial cat out 
of the bag and many "outsiders" 
have found our secret. To those of 
you who have, I bid you welcome to 
the "Club". 

Personally, I am happy that things 
have changed. It is very gratifying to 
visit our local computer shops and 
see the interest of the many young 
people and the interest that the com- 
puter store personnel take in helping 
these young folks. If, indeed, the 
1970's were phenomenal, what might 
we expect from the 1980's as these 
young people matriculate in the field 
of computers and automation? 

This booklet is dedicated to all of 
you former "outsiders" as well as 
those of you who have already "paid 
your dues" in this business. In it, we 
will attempt to treat some of the old 
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truisms of System Development in 
light of the modern-day microcom- 
puter; offer some suggestions that 
may make your efforts easier and 
more productive; and, just possibly 
excite you enough to start you think- 
ing about how you might turn a 
"Lemonade" computer business into 
a "Champagne" computer business 
by adding the touch of profes- 
sionalizm that we have been search- 
ing for lo' these last two and one-half 
decades. 

The bottom line of the dedication 
must, however, go to Jane, my 
wonderful wife, who maintains the 
environment in which a booklet such 
as this, and its supporting software, 
could be created. 

This booklet is about the automa- 
tion of business data processing. It 
presents accepted concepts of 
Systems Development in terms of 
today's microcomputers. It assumes 
that you know, or have made up your 
mind to learn, the fundamentals of 
BASIC programming. It is, by far, 
less than a complete analysis of all of 
the things you would need to know to 
survive in a competitive world of 
data processing consulting — how- 
ever, if that is your aim, it can 
give you a good start in that direc- 
tion. If you simply want to use the 
microcomputer to develop your own 
business applications, then this 
booklet will provide some insight as 
to how the professionals do it — or 
fail to do it! 

This booklet is divided into four 
sections. Section I provides a discus- 
sion of the Data Processing System 
Development Cycle. In other words, 
those things to consider if you want 
to turn your "Lemonade" computer 
business into a "Champagne" com- 
puter business — or things you 
should know if you just want to 
design and install your own 
microcomputer system. It will sug- 
gest a systematic approach to System 
Development whether you are 
developing for yourself or for others. 
You will find that the pitfalls of 
Systems Development are discussed 
quite candidly and this is what we 
mean by a "hard look". If you wear 
the shoes of the "User" or "Client", 
please don't take offense as to how 
you have been profiled. In reality, the 
great majority of Clients are quite 
naive and must be led through a first- 



time installation with great care. 
However, mark these words, this 
situation wil change significantly dur- 
ing the next decade and Users are go- 
ing to become increasingly more 
knowledgeable. 

Section II provides five examples 
of forms which the System 
Analyst/Programmer may want to 
use during the System Development 
effort. The author will be happy to 
supply full-sized versions of these 
forms to any reader who desires 
copies of them. Just send your re- 
request to Nepenthe Programs, 3014 
Biggs Ct., National City, CA 92050. 
and, if at all possible, include a brief 
description of "what you are up to" 
in the microcomputer field. We like 
to keep touch with "Lemonade En- 
trepreneurs". 

Section III will focus attention on 
some of the finer points of Program 
Development and Document 
Preparation. It will concentrate 
mainly on the creation and use of 
randomly accessed data files. Very 
little has been written thusfar about 
the real "nuts & bolts" of using ran- 
dom access files in the "real world"; 
however, this facet of Program 
Development is considered to be of 
paramount importance to the 
business application programmer. 

Section IV will describe several 
software solutions to ease your pro- 
gramming efforts. These "Software 
Solutions" are programs for TRS-80, 
Model I, Disk Systems available from 
the author. Each of these programs 
was written by the author and are in 
every-day use in the "Systems-for- 
Sale" environment of a Professional 
Microcomputer Consultant. 

SECTION ONE 

The term "Systems", as used 
throughout this booklet, will refer to 
a program, or a set of related pro- 
grams, designed to employ the 
microprocessor to process data into a 
usable product. In fact, that is what 
data processing is all about — render- 
ing raw data into useful information. 
We treat the development of 
microcomputer systems with the 
same seriousness as the development 
of systems for large-scale computers. 
The size or cost of the equipment in 
no way minimizes the planning con- 
siderations for a system; The infor- 
mation it produces is only as good as 
the raw data it is given and the pro- 
gram which processes the data. After 
all, should we consider the informa- 
tion we get from a $2500 microcom- 
puter of any less importance than 



that which someone else may get 
from his $250,000.00 computer? 

The development of a computer 
system is viewed as a systematic pro- 
cedure. It could be likened to the con- 
struction of a building in that the 
plans must first be committed to 
paper, the foundation established, 
and the remainder of the structure 
erected brick-by-brick. If you have 
been in this profession for any length 
of time at all, you will have already 
experienced what happens when a 
system, or even a single program, is 
begun in the middle without con- 
sidering the consequences of the 
beginning or the end — about the 
same thing that happens when a 
building is constructed beginning 
with the second story! 

The systematic approach to the 
construction of a computer system is 
what we will call the "development 
cycle". A flowchart of the system 
development cycle is included as 
Figure 1-1. It consists of all the steps 
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necessary to insure that a computer 
system is well-conceived, well-ex- 
ecuted, and can be maintained (and 
even enhanced) throughout its useful 
life. This development cycle consists 
of seven distinct, but interrelated, 
areas of effort: problem definition, 
system (problem) analysis, system 
design, programming, unit/system 
testing, system documentation, and 
system implementation & 
maintenance. If this seems like a 
high-priced mouthful of buzzwords, 
let me hasten to add that you have 
already done each of these things for 
every program you have created — or 
you have not yet created your first 
working application program! 

PROBLEM DEFINITION 

Problem definition is probably the 
most important aspect of the 
development cycle since, if you do 
not know what problem is to be solv- 
ed, it is very difficult to come up with 
a solution. I sometimes think that 
much of the data processing world is 
made up of frustrated programmers 
running around with a solution look- 
ing for a problem. Give them one and 
they will hide in their corner until 
they have applied one or more of 
their readymade solutions. The pro- 
blem here is that if they did not fully 
understand the problem when they 
went into the corner, the solution will 
not be what was expected. 

If your computer application is for 
yourself, then you probably know 
pretty well what it is that you want to 
do. Still, if you write it down, you 
will surely come up with some 
embellishments that you probably 
overlooked. It will sure save you a big 
chunk of time if you think of those 
embellishments at the beginning of 
your development effort. 

If the development effort is for 
someone else, then your problem 
definition efforts increase by some 
quantum jump. Communication bet- 
ween individuals, and the problems 
attendant thereto, fill many books. 
These communication problems are 
compounded when the "computer 
expert" and the "subject matter ex- 
pert", each with his own language, 
try to communicate. The solution — 
write it down so that you both can see 
a clear picture of what is required to 
solve the problem. 

There is a formula that can be used 
in the problem definition phase of the 
development cycle. It is 90% listening 
and 10% talking on your part. You 
are there to get a comprehension of 
the prospective client's problem; not 

contimicd on next |uigc 
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conlJRued from previous page 
to tell him what he should be doing. 
Remember that his business has pro- 
bably been successful thus far 
without you and the only reason you 
are invited in is to hear some problem 
that the businessman has and to see if 
you can solve it. Don't try to solve 
the problem on the spot unless you 
do not want a contract to provide ser- 
vices. Limit your talking to the 
following. 

...Ask questions relative to 
anything the prospective client has 
said that you do not fully under- 
stand. 

...Answer questions asked and 
when you do not know the answer, 
write down the question, admit that 
you do not feel confident to answer 
at this time, and tell him you will get 
back with the answer. 
AND DO IT! 

One of the major efforts in pro- 
blem definition is the collection of 
the various forms that are required in 
the data processing effort. During the 
initial problem definition interview 
with a prospective client, you will 
want to collect copies of all forms 
currently being used; both standard 
forms used in the particular type in- 
dustry or application, and forms used 
in current operations for the applica- 
tion being considered for automa- 
tion. Not only should you secure one 
copy of a blank for each of these 
forms, but you should attempt to 
secure at least one completed sample 
form. These forms will subsequently 
be used for an analysis of the data 
elements contained thereon as well as 
formulation of the system test plan. 

SYSTEM ANALYSIS 

Some suggested computer applica- 
tions are best left to manual opera- 
tion! The System Analysis (or Pro- 
blem Analysis) phase of the develop- 
ment cycle is often referred to as the 
feasibility study and should answer 
the question of automated data pro- 
cessing versus manual data process- 
ing. In effect, if tangible benefits of 
automating cannot be ascertained at 
this point, there is little reason to pro- 
ceed with the development cycle 
because the remaining effort will be 
for naught. Be candid with the pro- 
spective client. If you have reason to 
doubt the wisdom of automating 
some facet of the application, tell 
him your reasons. Of course, if he in- 
sists that you proceed with it, you 
have very few alternatives. 

The effort during the Systems 
Analysis phase is largely concerned 
with "thinking the system through". 
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It is most important that you first 
sketch out a rough flow chart of the 
proposed system which shows the in- 
teraction between the major segments 
of total system operation. It would be 
most prudent that you actually do 
two of these, one showing the way 
data flows and is processed under to- 
day's manual operation and one 
which shows how you would propose 
to do it with an automated system. A 
comparison of these two flow charts 
should point out the feasibility of 
automation; if it is indeed feasible. 

As an example of the System 
Analysis process, let's assume that we 
want to automate a payroll system. 
We might have been told by the pro- 
spective client that he desires a 
payroll system that will provide 
weekly payroll registers for both 
salaried and hourly-rate employees. 
He wants to accumulate this payroll 
data and produce the quarterly 
reports required by both state and 
local regulatory agencies. He also re- 
quires that employee earnings 
statements (W-2) be prepared at the 
end of the calendar year and the 
system should accommodate the 
preparation of an interim earnings 
statement for an employee that is ter- 
minated during the year. In sum- 
mary, he wants a standard payroll 
application. 

We know that we will need to 
maintain a Master File (or Data Base) 
of all employees to satisfy these re- 
quirements. Also, our initial flow 
chart of the system should consider 
the following major segments based 
on the various times that these 
segments must be performed. 

...A "File Maintenance" segment 
to build the initial data base or 
modify that data base after creation. 
(Will the data base be created at the 
beginning of the year or will it be 
created sometime during the year 
when it will be necessary to 
"Backfit" year-to-date informa- 
tion?) 

...A "payroll cycle" segment to 
enable the input of variables such as 
hours worked, salary changes, name- 
or marital status changes, addition 
of new hires, employee termina- 
tions, initialization or modification 
of "non-standard" deductions, 
special payment of bonuses or non- 
taxable sick pay, etc. 

...A "quarterly" segment which 
will produce quarterly reports and 
"roll" the quarterly accumulations 
on the data base. 

...An "annual" segment which 
will create information summarized 
for the preparation of annual 
employee earnings statements and the 
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"rolling" of payroll accumulations 
for the new year. 

...An "as required" segment 
which will enable the preparation of 
interim employee earnings statements 
upon demand. This segment should 
also contain the flexibility to accom- 
modate some of those extra features 
that may have been overlooked dur- 
ing initial discussions with the client, 
such as an employee to employee 
number cross-reference listing or an 
employee mailing list. 

This "overview" flow chart should 
be in sufficient detail to show the in- 
teractions between the various 
segments and the interfaces with the 
data base. It should show the reports 
that are produced by the segments 
and the input that is required for each 
of the segments by the operator of 
the system. Please observe that we 
are not yet at the "data element" 
level in our flow charting since we 
want to jump a very large hurdle 
before spending time on the "nitty- 
gritty" detail. 

This hurdle is the final discussion 
with the prospective client. The pur- 
pose of this discussion is threefold. 

...First, to show the prospective 
client the potential savings to be 
realized in automating under your 
proposed system; 

...Second, to make sure that the 
problem solution you are proposing 
is what the prospective client has in 
mind; and, 

...Third, to change his status from 
"Prospective Client" to "Client". 

In other words, this should be the 
final meeting before you begin work 
on the computer system in earnest 
and you should walk away from it 
with a firm understanding of just 
what is to be done, a positive feeling 
that you are capable of doing the job 
in the time frame you have agreed 
upon, and a firm commitment on the 
part of the Client that he is going to 
accept the system when you have 
finished the work. If you have not 
"sold" your services to the point 
where you are able to collect at least 
twenty percent of the total fees, don't 
bother working any further for this 
Client! Either he was just looking for 
free information to pass on to his 
programmer-brother-in-law (who, in- 
cidently, has offered to do it on a 4K 
tape system), or you are not ex- 
hibiting the required professionalism. 
If you lose the case, the reason will, 
most probably, be hard to ascertain 
because most of the time you will be 



given some fictitious excuse why he is 
not putting his money on the line. 
Whatever the reason, if it happens 
(and it surely will once and a while), 
you want to do a little additional 
analysis to insure it was not a ques- 
tion of your professionalism and, if it 
was, to correct the problem in the 
future. 

The System Analysis phase of the 
development cycle is where the novice 
becomes the professional. For exam- 
ple, the system we used for illustra- 
tion was a payroll application, one of 
the more prevalent automated data 
processing applications. When you 
begin as a novice you either must find 
existing systems of this type and learn 
them thoroughly, or you must apply 
your own inventive genius and do it 
the hard way. Each time you fall on 
your face when offering your Super- 
. Duper Payroll System to a prospec- 
tive Client, you must reappraise what 
you are offering and update your 
software so that you will have more 
chance for success the next time out. 
Soon you will have a viable package 
that will survive the test. Subsequent 
sales of this software (be it Payroll or 
some other application) will be on the 
first interview. This is what I mean by 
"paying your dues". 



SYSTEM DESIGN 

System Design is the art of in- 
tegrating the various segments of the 
application as conceived in the 
Systems Analysis phase into a 
cohesive whole. I call it an "art" 
because where much of the effort 
which follows is pure trial and error 
labor, this phase provides you all of 
the freedom and innovation that your 
experience with the hardware and 
software will allow. 

In effect, as in the game of 
Monopoly, you are at "GO". You 
have made a professional commit- 
ment to a Client, taken his money in 
good faith, and are ready to find out 
whether or not you can do it! Of 
course you can — you put your pro- 
fessional competence on the line, 
didn't you? But, the point is that an 
ill-conceived system design, at this 
point, will cost you time that you did 
not bargain for in your initial op- 
tomism. It is what I call the "Infernal 
Loop" and it will cause you to pass 
"GO" more than once without col- 
lecting your $200.00. 

Figure 1-2 reflects graphically the 
seriousness of the "Infernal Loop". 
The value of "N" is, of course, 
dependent upon the personal rela- 
tionship you have with the Client. 
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Obviously, if you can still complete 
the project on time (or your Client is 
a bosom buddy whom you can con 
into waiting), the effect will not be 
too serious — just frustrating. 
However, if you are to be profes- 
sional, and compete with all those 
other tigers out there, a faulty system 
design could prove sickening or even 
fatal. Unfortunately, the only an- 
tidode is experience (or "paying your 
dues"). 

Just what are the elements of 
Systems Design. Well, for an opener, 
let's call it the nitty-gritty of "how" 
your system is going to accept data 
and process it into information. As a 
starting point we will need to isolate 
all of the data elements required by 
the system. We will define a data ele- 
ment as any separate and distinct 
piece of information required by the 
system, such as "Employee Name" 
or "Social Security Account 
Number" or "Gross Pay". 
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Remember when we told you to 
collect documents during your initial 
meeting with the Client? Examina- 
tion of these documents will give you 
a good start in ascertaining the data 
elements that will be required on both 
"input" and "output" sides of your 
systems. In addition, these 
documents should be studied so that 
we can ascertain how data is current- 
ly being processed. The conversion 
from a manual to an automated 
system is a traumatic experience for 
your Client's employees and, if we 
can minimize the use of strange new 
documents, we can lessen this trauma 
significantly. 

Once we have ascertained the data 
elements that will be required (or at 
least taken our first cut at doing so), 
and we have noted them for future 
reference, we can start to plan our 
data base(s). A data base is simply a 
collection of stored information 
continued on page 84 
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_____ ! than four decades of experi- 
ence in magnetic media -BASF 
invented magnetic recording 
tape, the forerunner of today's 
wide range of magnetic media, 
back in 1934, and was the first 
independent manufacturer of 
IBM-compatible floppy disks. 



Tough Tyvek sleeve — no paper 
dust, no static electricity. 



Special self-cleaning jacket and 
liner help eliminate data errors 
and media wear and tear. 
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Center hole diameter punched to 
more accurate standards than 
industry specifications, for top 
performance. 



Bi-axially oriented polyester 
substrate - for uniform and reli- 
able perfoiTTiance year after year. 



Cross-linked oxide coating-for 
low head wear and long trouble- 
free media life. 



Total capabiUty-one of two man- 
ufacturers in the world that 
makes both 8" and 5.25" models, 
has tape and disk experience, and 
manufactures floppy disk drives. 



Double lubrication — lubricants 
both in the formula and on the 
disk surface, to minimize media 
wear due to head friction. 



Packaging to suit your 
requirements— standard flip-top 
box , Kassette 10® storage case, 
or bulk pack. 



100% certification— every single 
disk is tested at thresholds 2-3 
times higher than system require- 
ments, to be 100% error-free. 



For the name of your nearest 
supplier, write BASF Systems, 
Crosby Drive, Bedford, 
MA 01730, or call 617-271-4030. 
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HARDWARE 

The hardware item for this month 
is the EPSON MX-70 printer. Do not 
look for this printer to have all the 
goodies that the MX-80 has. This is a 
low-cost printer designed to do all the 
basic print functions. The price tag is 
some $100 cheaper and that money 
had to come from somewhere. 




MX-70 PRINTER 

Printer operation is in two print 
sizes only — 80 characters per line 
and 40 per line. There isn't a con- 
densed mode. You get only single 
strike and no emphasized mode. The 
lower case does not have descenders. 
The graphics mode is not block, but 
what is commonly referred to as dot 
addressable graphics. This is the one 
area the MX-70 outshines the 
MX-80. You can do pictures with 
finer resolution and many more 
shades of gray. This printer is the one 
for all you graphics people. 
However, if you are into word pro- 
cessing, the MX-80 would be the bet- 
ter choice. 

There is one big problem with the 
MX-70 when using a cable other than 
the EPSON cable. Pin 35 in the 36 
pin connector end MUST, REPEAT: 
MUST be removed for the printer to 
operate with the S-80. If you have a 
26-1401 cable, then pin 35 has to be 
removed. When this is done, the 
operation is normal and you should 
be very happy. 

SOFTWARE 

I have not received any software 
for review this month. This means 



that all I can do is ramble around a 
bit and see if my BBs still rattle. I 
have been doing some programming 
lately using NEWDOS80. I really like 
this as a programmer's DOS. Let me 
run down just a few of the goodies 
when using the modified Disk 
BASIC: 

1. To list a line — L (xxx) xxx: line 
number. 

2. To edit a line — E (xxx). 

3. Down arrow — displays next se- 
quential line. 

4. Up arrow — displays previous 
sequential line. 

5. Shift up arrow — displays first 
Hne of program. 

6. DI aaa, bbb — delete Hne aaa 
and insert it at bbb. 

7. DU aaa, bbb — duplicate line 
aaa at bbb. 

8. RENUM aaa, bbb, ccc, ddd — 
renumber aaa (first line), bbb (in in- 
crements of bbb), ccc (starting at 
ccc), ddd (last line of block to be 
renumbered). If nothing is specified, 
the whole program is renumbered 
starting at 10, by 10s. 

9. REFxnn — will list all the places 
a variable nn is used in the program. 
The x code is for screen or printer as 
the display device. 

If you happen to get zapped or 
lock up your keyboard, reboot DOS 
and type BASIC* to get back into 
your program without losing it. 
There are a lot of niceties for the pro- 
grammer that have been built into 
NEWDOS80. Being able to duplicate 
lines without retyping the whole thing 
(DU), or being able to move out of 
place lines by a simple DI command 
is sure a lot faster and easier. It has 
gotten to the point that I do all my 
BASIC programming in the 
NEWDOS80 BASIC. 

Well, I guess that's all for now. I 
still haven't heard from anyone out 
there. I thought that this was a fast- 
moving industry that needed new 
products to put in front of the user 
public. Shows you how muddled my 
thinking can get at times. However, I 
am still requesting NEW PRODUCT 
RELEASES and submissions from 
guys and gals that are using some of 
these new widgets. ^ 
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For the thousands who 
have enjoyed X-Wing Fighter, 
X-Wing II presents a totally 
new element in the game! 

You are the pilot of an 
X-Wing fighter .... Your 
Mission, Destroy the Death 
Star! 






Where X-Wing I left Death 
Star looming on the screen, 
X-Wing II lets you guide your 
fighter into the trench, find 
the exhaust port, aim and 
fire — ail the while avoiding 
enemy fighters. Excellent 
graphics, 12 levels of play, 
and extensive INKEY$ 
commands make this one of 
our most exciting "real time" 
games. 

S-80 16K Cassette .... $9 Q'^ 
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ALL RAMS 

ARE NOT CREATED EQUAL 



by Joseph V. Cesaitis 

If you are the owner of a Radio 
Shack Model I S-80 disk system and 
have been observing any or all of the 
following symptoms you may be 
headed down the road of sleepless 
nights and a depleted checkbook. 

1. Random rebooting of your 
system while in BASIC; 

2. Bad loads from disk, particular- 
ly where large files are involved; 

3. Keyboard lockup after entering 
BASIC from DOS; or 

4. Unexplained out of memory or 
syntax error messages in Disk 
BASIC. 

In my case I experienced all of 
these problems. I had read that the 
expansion interface (E/I) with the 
buffered cable (such as mine) had 
some design problems which could 
account for the strange behavior of 
my machine. I took the advice of a 
number of magazine articles in an ef- 
fort toward solving these problems. 
My method was to begin with those 
solutions which had little or no 
associated cost and to work up from 
there. 

First, I ran TESTl and TEST2 as 
described in the TRSDOS manual. 
Neither test turned up any problems 
except a random reboot during one 
of ten executions of TEST2. I 
thought nothing of this reboot since 
TEST2 runs under Disk BASIC and 
this was the very problem I was trying 
to solve. 

Second, I cleaned all printed circuit 
board edge connections with a pink 
eraser to make sure that I had no ox- 
idation problems at my cable connec- 
tions. This procedure did nothing to 
alleviate my problems. 

Third, I interchanged each 16K 
RAM set between the CPU and the 
E/I, to see if a certain combination 
would work. After shuffling various 
RAM sets between the CPU and the 
E/I, I finally found a combination 
which didn't cause a rebooting or 
keyboard problem. My rejoicing was 
premature, however, because in less 
than two days the problem reap- 
peared. This put me on the trail of 
suspecting the RAM chips 
themselves. 

Fourth, I ran a lengthy RAM test 
(eight to ten hours) on each RAM set 
in hope of ferreting out the defective 
chip(s). Each RAM set passed this 
test with flying colors. The RAM trail 
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exhausted, 1 decided to call the Tan- 
dy hot line. 

I spoke with a hardware specialist 
who offered the following possible 
causes for my problem: 

1. A bad copy of TRSDOS; 

2. Static electricity; 

3. Power surges on AC line; or 

4. Noise on adjacent traces in buf- 
fered cable. 

One by one 1 went down the service 
technician's list of possible causes. I 
used Percom's Double DOS disk as 
my alternate copy of TRSDOS but 
observed no improvement. The Tan- 
dy service technician explained that I 
could be experiencing a static elec- 
tricity problem which was particulary 
acute in the winter months due to a 
lack of humidity. He indicated that 
the S-80 operates best in an environ- 
ment of at least SO^/o humidity. 

Armed with my children's vapor- 
izer and an hygrometer 1 raised the 
level of humidity in the room to 70% . 
There was still no improvement, so I 
decided that perhaps a $50 invest- 
ment in Radio Shack's Power Line 
Filter would do the trick. Unfor- 
tunately this addition failed as well, 
but as an aside, this $50 purchase was 
not totally in vain because 1 can now 
turn on my entire system with the flip 
of a single switch. This was quite an 
improvement over plugging and 
unplugging eight plugs and turning 
on six different switches (my 
homemade printer interface and 
cassette player have no power 
switches). 

I decided to delay action on possi- 
ble cause #4 until I tried replacing the 
two sets of 16K RAM chips in the E/I 
with entirely new chip sets. I visited 
my local computer store and with the 
agreement that I could return the 
chips if they didn't solve my prob- 
lem, I installed two sets of Fujitsu 
200 nanosecond access time, 16K 
RAM chips. Instead of improving, 
the problem got worse. Question 
marks, commas, and other ex- 
traneous characters were displayed 
on the screen when I entered Disk 
BASIC. I promptly returned the Fu- 
jitsu chips and moved on the the ser- 
vice technician's fourth suggestion. 

I stopped by a Radio Shack store 
near where I work and asked about 
the modification for installing a 
twisted pair. The manager informed 
me that Radio Shack had a "cam- 
paign" on for the last eight months 

SoftSide June 1981 



to get buffered cable E/I owners to 
have this mod performed. I am 
writing this in late February, 1981, 
and I never saw any Radio Shack 
promotional material for this mod 
outside of the technician's suggestion 
— and only then after I brought it 
up. Nonetheless, I asked the manager 
if I should bring in both the CPU and 
the E/I and he stressed that only the 
E/I was necessary. 

The next day I dropped off the E/I 
for the necessary work. The manager 
was not there and the sales personnel 
who were there acted as though I had 
dreamed up the twisted pair mod. 
After assuring them that this was a 
Radio Shack approved mod, one 
salesman called the local repair center 
to verify my claim. During his call we 
both discovered that the manager had 
been in error about needing just the 
E/I. Both the CPU and the E/I are 
needed for this mod. Annoyed, I 
returned the next day with both units. 
The following day I received a call 
from the Radio Shack salesman in- 
dicating that the twisted cable had 
been installed but did not fix the 
problem. He did indicate that in- 
stallation of new RAM had fixed the 
problem. Hesitant at first to spend 
$119 per 16K RAM set having just 
performed a similar replacement days 
earlier, I nonetheless decided to take 
the plunge. 

I took both units home and ob- 
served the modification. The twisted 
pair is actually a gray cable of five 
wires interconnected between the 
CPU and the E/I with a DIN-type 
plug. After connecting all the cables I 
pushed the reset button on the back 
of the CPU to boot up. Nothing hap- 
pened. I was able to get the machine 
to operate as a 48K Level II computer 
but I could not get the reset button to 
function with or without the E/I con- 
nected. Disgusted, I opened the CPU 
unit and performed a continuity 
check on the reset switch. The switch 
checked out fine but during my in- 
spection I noticed a blob of solder 
across two foil patterns. I removed 
the solder and retried the reset but- 
ton. Eureka! It worked. I quickly 
reconnected the E/I and the disk and 
tried the reset button again. The disk 
booted up with no problem. I next 
tried calling Disk BASIC and left the 
machine in this system for 45 
minutes. I observed no random 
rebooting such as I had before. I have 



had the machine back for one week 
now and it is working perfectly ex- 
cept for one minor flaw which I will 
mention later. 

1 opened up the E/I to see what 
type of RAM chips Radio Shack in- 
stalled. I found 16 Motorola chips 
number 8041016. There was a second 
number on each chip which was not 
the same for each chip. The chips in 
sockets Zl through Z8 had 7940 
printed on them and the chips in 
sockets Z9 through Z16 either had a 
8015 or 8016 stamped on the case. 1 
suspect that these four-digit numbers 
are batch control numbers or 
something hke that. 1 had read in one 
of the computer magazines that 
Motorola and NEC chips were the 
most reliable for proper E/1 opera- 
tion. I found this hard to believe until 
now. The chips which I had been us- 
ing were from two different sources 
but each set had a one year 
guarantee, something 1 recommend 
you look for when purchasing any 
kind of hardware. One set was 
marked Singapore 4116-2DC, F8040 
which I purchased from Godbout 
Electronics. 1 have been in contact 
with this company and already 
received my $39 back plus the $2 
shipping charge. The other set of 



RAM was Hitachi HM4716A-4N, 
Japan 9M1 which I purchased from 
California Digital. I haven't talked to 
them but they advertise an uncondi- 
tional guarantee. I'll see. Both of 
these chip sets worked fine in the 
CPU except for the problem I men- 
tioned earlier. With the Hitachi chips 
in the CPU the display would jitter 
when the machine was first turned 
on. This problem disappeared after 
two or three minutes of operation. 

I hope that by sharing my ex- 
perience with other S-80 owners, 
perhaps I have been able to shed 
some light on a particularly annoying 
problem. Also, I hope I have saved 
others some time and/or expense in 
resolving this type of problem. 



EDITOR'S NOTE: 

Mr. Cesaitis' experience is not an 
exceptional one. Memory chips are 
not created equal, the quality varies 
with the manufacturer. Some chips, 
due to impurities in the materials, 
cause "soft errors" or sporadic 
changes of memory location. Q 



Computer Games! 



How can we tell you about 400 
computer games in one advertisement? 



We've got the world's largest line of 
computer games. Over 400 In all. 
They're on cassette and disk for eight 
popular personal computers: Atari, 
Apple, Tl 99/4, PET, TRS-80, Sorcerer, 
SolandCP/M. 

From A to Z, Action Games to Z-Chess 
II, we've got loads of best-sellers inclu- 
ding "Super Invader" for the Apple, a 
complete line of six Adventure games. 
Backgammon, Milestones and Cycle 
Jump. 

Not only that, we publish the best- 
selling books, Basic Computer Games 
and More Basic Computer Games with 
over 500,000 copies in print. 

We've also got a nifty board game, 
Computer Rage, sets of three binary dice, 
acrobatic toy robots, T-shirts and lots of 
other goodies. 

You'll find comprehensive descriptions 
of all of our software, books, games and 
peripherals in our huge 48-page catalog. 
It's unique in the small computer field. For 
your free copy, write or call us today or 
circle our number on the reader service 
card. 
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Super Invader features superb high- 
resolution graphics, nail-biting tension 
and hilarious antics by the moon crea- 
tures. 

creative 
GOiRpatiR^^ 

39 East Hanover Ave. 
Morris Plains, NJ 07950 
Toll-free 800-631-8112 

In NJ 201-540-0445 
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The Lazy 
Man's 
Shortcut 
to Machine 
Language 




A BASIC Compiler in BASIC! 
Run your source program in 
BASIC, compile it into FAST Z-80 
Code and execute the compiled 
version — all without reloading. 26 
integer variables, GOTO, COSUB, 
END, REM, RND, LET, +, *, /, 
IF, THEN, =, INKEYS, CLS, 
PRINT®, CHR$, PEEK, POKE. 
Compiled programs may by saved 
via TAPEDISK. 

Supplied with game program, 
"3-D TIC TAC TOE", which uses 
all of the TINY COMP statement 
set and is ready to compile. 

Manual includes several sample 
programs as well as thorough 
documentation of the Compiler for 
those who like to know "how things 
work" and tor those who might 
even wish to EXPAND on TINY 
COMP's capabilities. 

16K, S-80 Cassette«26-TVTT .... $-\9.95 
32K, S-80, Disk#26-TYND $24.95 
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A REMARKABLE MA&AZINE 




GPeaMve 

GOIRpaMRg 

"The beat covered by Creative Computing 
is one of tiie most important, explosive and 
fast-changing. "—Alvin Toffler 



David Ahl. Founder and 
Publisher of Creative Computing 



You might think the term "creative com- 
puting" is a contradiction. How can some- 
thing as precise and logical as electronic 
computing possibly be creative? We think 
it can be. Consider the way computers are 
being used to create special effects in 
movies— image generation, coloring and 
computer-driven cameras and props. Or an 
electronic "sketchpad" for your home 
computer that adds animation, coloring 
and shading at your direction. How about a 
computer simulation of an invasion of killer 
bees with you trying to find a way of keep- 
ing them under control? 

Beyond Our Dreams 

Computers are not creative per se. But 
the way in which they are used can be 
highly creative and imaginative. Five years 
ago when Creative Computing magazine 
first billed itself as "The number 1 maga- 
zine of computer applications and soft- 
ware," we had no idea how far that idea 
would take us. Today, these applications 
are becoming so broad, so all- 
encompassing that the computer field will 
soon include virtually everything! 

In light of this generality, we take "appli- 
cation" to mean whatever can be done with 
computers, ought to be done with comput- 
ers or might be done with computers. That 
is the meat of Creative Computing. 

Alvin Toffler, author of Future Shock and 
The Third Wave says, "I read Creative Com- 
puting not only for information about how 
to make the most of my own equipment but 
to keep an eye on how the whole field is 
emerging. 

Creative Computing, the company as 
well as the magazine, is uniquely light- 
hearted but also seriously interested in all 
aspects of computing. Ours is the maga- 
zine of software, graphics, games and sim- 
ulations for beginners and relaxing profes- 
sionals. We try to present the new and im- 
portant ideas of the field in a way that a 1 4- 
year old or a Cobol programmer can under- 



stand them. Things like text editing, social 
simulations, control of household devices, 
animation and graphics, and communica- 
tions networks. 

Understandable Yet Challenging 

As the premier magazine for beginners, it 
is our solemn responsibility to make what 
we publish comprehensible to the new- 
comer. That does not mean easy; our 
readers like to be challenged. It means 
providing the reader who has no prepar- 
ation with every possible means to seize 
the subject matter and make it his own. 

However, we don't want the experts in 
our audience to be bored. So we try to 
publish articles of interest to beginners and 
experts at the same time. Ideally, we would 
like every piece to have instructional or 
informative content— and some depth- 
even when communicated humorously or 
playfully. Thus, our favorite kind of piece is 
acessible to the beginner, theoretically 
non-trivial, interesting on more than one 
level, and perhaps even humorous. 

David Gerrold of Star Trel< fame says, 
"Creative Computing with its unpreten- 
tious, down-to-earth lucidity encourages 
the computer user to have fun. Creative 
Computing makes it possible for me to 
learn basic programming skills and use the 
computer better than any other source. 

Hard-hitting Evaluations 

At Creative Computing we obtain new 
computer systems, peripherals, and soft- 
ware as soon as they are announced. We 
put them through their paces in our Soft- 
ware Development Center and also in the 
environment for which they are intended- 
home, business, laboratory, or school. 

Our evaluations are unbiased and accur- 
ate. We compared word processing printers 
and found two losers among highly pro- 
moted makes. Conversely, we found one 
computer had far more than its advertised 
capability. Of 16 educational packages. 



only seven offered solid learning value. 

When we say unbiased reviews we mean 
it. More than once, our honesty has cost us 
an advertiser— temporarily. But we feel 
that our first obligation is to our readers and 
that editorial excellence and integrity are 
our highest goals. 

Karl Zinn at the University of Michigan 
feels we are meeting these goals when he 
writes. "Creative Computing consistently 
provides value in articles, product reviews 
and systems comparisons ... in a magazine 
that is fun to read." 

Order Today 

To order your subscription to Creative 
Computing, send $20 for one year (12 
issues), $37 for two years (24 issues) or $53 
for three years (36 issues). If you prefer, 
call our toll-free number, 800-631-8112 (in 
NJ 201-540-0445) to put your subscription 
on your MasterCard, Visa or American Ex- 
press card. Canadian and other foreign 
surface subscriptionsare $29 per year, and 
must be prepaid. We guarantee that you 
will be completely satisfied or we will re- 
fund the entire amount of your subscrip- 
tion. 

Join over 80,000 subscribers like Ann 
Lewin, Director of the Capital Children's 
Museum who says, "I am very much im- 
pressed with Creative Computing. It is 
helping to demystify the computer. Its arti- 
cles are helpful, humorous and humane. 
The world needs Creative Computing." 

GPeative 
Gomp»tiRg 

Attn: Elyse 

P.O. Box 789-M 

Morristown, NJ 07960 

Toll-free 800-831 -811 2 

(In NJ 201-540-0445) 
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The story behind the two best selling 
computer games books in the world. 

Computer 
Gaines 



by David H.Ahl 

Everybody likes games. Children like tic 
tac toe. Gamblers like blackjack. Trekkies 
like Star Trek. Almost everyone has a favor- 
ite game or two. 

It Started in 1971 

Ten years ago when I was at Digital 
Equipment Corp. (DEC), we wanted a pain- 
less way to show reluctant educators that 
computers weren't scary or difficult to use. 
Games and simulations seemed like a good 
method. 



So I put out a call to all our customers to 
send us their best computer games. The 
response was overwhelming. I got 21 ver- 
sions of blackjack, 15 of nim and 12 of 
battleship. 

From this enormous outpouring I se- 
lected the 90 best games and added 1 1 that 
I had written myself for a total of 101. I 
edited these into a book called 101 Basic 
Computer Games which was published by 
DEC. It still is. 

When I left DEC in 1974 I asked for the 
rights to print the book independently. 
They agreed as long as the name was 
changed. 



Contents of Basic Computer Games (right) 
and More Basic Computer Games (below). 



Artillery-3 


Life Expectancy 


Baccarat 


Lissajous 


Bible Quiz 


Magic Square 


Big 6 


Man-Eating Rabbit 


Binary 


Maneuvers 


Blacl<box 


Mastermind 


Bobstones 


Masterbagels 


Bocce 


Matpuzzle 


Boga II 


Maze, 


Bumbrun 


Millionaire 


Bridge-It 


Minotaur 


Camel 


Motorcycle Jump 


Chase 


Nomad 


Chuck-A-Luck 


Not One 


Close Encounters 


Obstacle 


Column 


Octrix 


Concentration 


Pasart 


Condot 


Pasart2 


Convoy 


Pinball 


Corral 


Rabbit Chase 


Countdown 


Roadrace 


Cup 


Rotate 


Dealers Choice 


Safe 


Deepspace 


Scales 


Defuse 


Schmoo 


Dodgem 


Seabattle 


Doors 


Seawar 


Drag 


Shoot 


Dr. Z 


Smash 


Eliza 


Strike 9 


Father 


Tennis 


Flip 


Tickertape 


Four In A Row 


TV Plot 


Geowar 


Twonky 


Grand Prix 


Two-to-Ten 


Guess-It 


UFO 


ICBM 


Under & Over 


Inkblot 


Van Gam 


Joust 


Warfish 


Jumping Balls 


Word Search Puzzle 


Keno 


Wumpus 1 


LGame 


Wumpus 2 





Introduction 


Hi-Lo 


The Basic Language 


High l-Q 


Conversion to Other 


Hockey 


Basics 


Horserace 


Acey Ducey 


Hurkle 


Amazing 


Kinema 


Animal 


King 


Awari 


Letter 


Bagels 


Lite 


Banner 


Life For Two 


Basketball 


Literature Quiz 


Batnum 


Love 


Battle 


Lunar LEM Rocket 


Blackjack 


Master Mind 


Bombardment 


Math Dice 


Bombs Away 


Mugwump 


Bounce 


Name 


Bowling 


Nicomachus 


Boxing 


Nim 


Bug 


Number 


Bullfight 


One Check 


Bullseye 


Orbit 


Bunny 


Pizza 


Buzzword 


Poetry 


Calendar 


Poker 


Change 


Queen 


Checkers 


Reverse 


Chemist 


Rock. Scissors, Paper 


Chief 


Roulette 


Chomp 


Russian Roulette 


Civil War 


Salvo 


Combat 


Sine Wave 


Craps 


Slalom 


Cube 


Slots 


Depth Charge 


Splat 


Diamond 


Stars 


Dice 


Stock Market 


Digits 


Super Star Trek 


Even Wins 


Synonym 


Flip Flop 


Target 


Football 


3-D Plot 


Fur Trader 


3-D Tic-Tac-Toe 


Golf 


Tic Tac toe 


Gomoko 


Tower 


Guess 


Train 


Gunner 


Trap 


Hammurabi 


23 Matches 


Hangman 


War 


Hello 


Weekday 


Hexapawn 


Word 



Converted to Microsoft Basic 

The games in the original book were in 
many different dialects of Basic. So Steve 
North and I converted all the games to 
standard Microsoft Basic, expanded the 
descriptions and published the book under 
the new name Basic Computer Games. 

Over the next three years, people sent in 
improved versions of many of the games 
along with scores of new ones. So in 1 979, 
we totally revised and corrected Basic 
Computer Games and published a com- 
pletely new companion volume of 84 ad- 
ditional games called More Basic Com- 
puter Games. This edition is available in 
both Microsoft Basic and TRS-80 Basic for 
owners of the TRS-80 computer. 

Today Basic Computer Games is in its 
fifth printing and More Basic Computer 
Games is in its second. Combined salesare 
over one half million copies making them 
the best selling pair of books in recrea- 
tional computing by a wide margin. There 
are many imitators, but all offer a fraction of 
the number of games and cost far more. 

The games in these bodk^nclude classic 
board games like checkers. They include 
challenging simulation games like Camel 
(get across the desert on your camel) and 
Super Star Trek. There are number games 
like Guess My Number, Stars and Battle of 
Numbers. You'll find gambling games like 
blackjack, keno, and poker. All told there 
are 185 different games in these two 
books. 

Whether you're just getting started with 
computers or a proficient programmer, 
you'll find something of interest. You'll find 
15-line games and 400-line games and 
everything in between. 

The value offered by these books is out- 
standing. Every other publisher has raised 
the price of their books yet these sell for 
the same price as they did in 1 974. 

Moneyback Guarantee 

Examine one or both of these books and 
key some games into your computer. If 
you're not completely satisfied we'll refund 
the full purchase price plus your return 
postage. 

Basic Computer Games costs only $7.50 
and More Basic Computer Games just 
$7.95 for either the Microsoft or TRS-80 
edition ( please specify your choice on your 
order). Both books together are $15. Send 
payment plus $2.00 shipping and handling 
to Creative Computing Press, Morris 
Plains, NJ 07950. Visa, MasterCard and 
American Express orders should include 
card number and expiration date. Charge 
card orders may also be called in toll-free to 
800-631-8112 (in NJ 201-540-0445). 

Order today to turn your computer into 
the best game player on the block. 

GPeative 

Morris Plains, NJ 07950 
Toll-free 800-631-8112 

(In NJ 201-540-0445) 
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BATS 



by John Baker, D.V.M. 

"Bats" is an S-80 program requir- 
ing at least 16K of RAM. 

THE ELECTRIC VAMPIRE 
NIGHTMARE GAME 

This elaborate and challenging 
game has been kicking around some 
mainframe business computer 
systems for several years. The ver- 
sion presented here allows us S-80 
micro users to get in on some of the 
fun. 

The object of the game is sur- 
vival. You are placed into a field sur- 
rounded by a maze of electrified 
fences. In the field with you are 
some not-so-friendly bats who will 
mindlessly pursue you until they 
succeed in biting you or forcing you 
to stumble into a fence. Your only 
hope is to outwit them and lure all 
of them into getting zapped by the 
fences first. 

You move around by using this ar- 



ray of ten keys which are under the 
control of the first three fingers of 
your right hand: 

U I O 
H J K L 
,./ 
The H is the "hyperspace" key (use 
it cautiously!), and the other nine 
correspond to their relative physical 
positions on the keyboard: U is up- 
left, I is up, O is up-right, etc., with K 
being the "stay here" position. 

The game becomes more addic- 
ting as you play it and get better at 
it. You can consider yourself pretty 
good if you survive more than half 
the time. And if you start getting too 
relaxed, just throw in a few more 
bats.... 

VARIABLES 

A(x,y): Array containing field loca- 
tions of bats, fences, and you. 
B: Number of bats. 
F: Number of random fence sec- 
tions. 



G: Number of games played. 
H: Number of "hyperspaces" used. 
K: Number of bats killed. 
M: Number of moves used. 
Q$: Player's move. 
X, Y: Horizontal and vertical coor- 
dinates on field. 




Initialization and instructionsi 

15 RANDOM 

20 CLEAR 1000 

25 DIN fl(20,12):DIN USOiDIH Y(50) 

60 F=38:CL5 

70 F$=i;HR$(153)+CHRJil91)+CHR$(U6) 

100 PRINT "BATS >V< THE ELECTRIC VAMPIRE NIGHTMARE GAME!": 
PRINT 

101 INFUT'DO YOU NEED INSTRUCTIONS (Y/N)';Q$ 

102 PRINT: INPUT "HOH MANY BATS DO YOU CHALLENGE" ;B 

106 IF LEFT$(QJ,li="Y" THEN SOTO 110 ELSE PRINT:PRINT:PRINT:PRIN 

T ■ PLEASE STAND BY WHILE I LOCATE A BAT CAVE ■:60T0 

1000 

110 CLS: PRINT "YOU AWAKE TO FIND YOURSELF TRAPPED IN A FIELD OF 
ELECTRIFIED" 

120 PRINT "WIRE FENCES WITH"; B; "BATS. THIS IS NO ROD SERLING TW 
ILIGHT' 

130 PRINT "ZONE TELEVISION PROGRAM. .. .THIS PROGRAM IS REAL!" 

131 PRINT: PRINT "THE BATS CANNOT SEE THE FENCES AND WILL BE BEST 
ROYEO IF" 

133 PRINT "THEY FLY INTO ONE OR INTO EACH OTHER." 

134 PRINT:PRINT "THE BATS HILL MINDLESSLY MOVE TOWARD YOUR POSIT 
ION" 

135 PRINT "AND IF ONE BITES YOU. OR YOU BLUNDER INTO A FENCE - Y 
QU LOSE!" 

136 PRINT "YOUR ONLY HOPE IS TO LURE THE BATS INTO THE FENCES." 

137 PRINT:PRINT "YOU WIN ONLY WHEN ALL THE BATS ARE DESTROYED." 

138 PRINT:LINE INPUT "(DEPRESS 'ENTER' TO CONTINUE)";Q$ 



139 CLS 

140 A$='+ + + +":PRINT36,A»;:PRINT3192,"+- 

PRINTS3B4,"+ ";A»|:PRINT85B2,A»; 



-")A»; 



160 PRINT395,"Y0U CAN MOVE IN ANY DIRECTION"; :PRINTJ159, "BY PRES 

SING THESE KEYS:'; 

162 PRINTi297,"U I D';:PRINTJ357,"H J K L';!PRINT3425, 

"H , ."; 

164 PRINT8543, "WHICH CORRESPOND TO THE";:PRINTJ607, "DIRECTIONS S 

HOWN AT LEFT."; 

170 PRINT 370,"!LEFT I UP !RIGHT!";:PRINT3134,"! UP ! ! UP 

! 
180 PRINT3256,"IHYPER!LEFT !WAIT !RIGHT!";:PRINT3320,'!SPACE! 

!HERE ! !"; 
190 PRINT i 454,"!LEFT ! !RIGHT!";;PRINT3518,'!D0WN !DOWN !D 
OWN !"; 

205 PRINT 3 704,STRINGJ(64,37)i 

210 PRINT3770,">V< - A BAT ':F$;" - ft FENCE YOU - 
A VICTIM"; 

Set up outer fences. 

1000 FOR 1=0 TO 12:F0R J=0 TO 20 

1010 A(J,I)=0:A(0,I)=1:A(20,I)=1:NEXT J:NEXT I 

1020 FOR 1=0 TO 20:A(I,0)=1:A(I,12)=I:NEXT I 

Set up randoB inner fences. 

1030 FOR 1=1 TO F:A(RND(19),RND(11))=1:NEXT I 
Place bats in randoi locations. 

1090 FOR 1=1 TO B 

1100 X(I)=RND(19):Y(I)=RND(11);IF A()((I).Y(I))<>0 THEN GOTO HOC 
ELSE A(X(I),Y(I))=2 
1200 NEXT I 

Place victii in randoi location. 
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1300 IF Aai,Yl)=0 THEN GOTO 1305 ELSE X1=RND(19) 

1301 Y1=RNDI11):60T0 1300 
1305 fl(Xl,Yl)=3 

Reset counters. 

1310 H=0;K=0: 11=0; PRINT 8896,CHR»(30):PRINT JB9i,' "; 

Beginning at gate, 

1320 INPUT "REflDY TO PLAY (Y/N)"iQ$ 
1340 IF B$='N' THEN GOTO 9000 ELSE CLS 
Print gaie field. 

1400 FOR J=0 TO 12:F0R 1=0 TO 20 

1450 ON Ad, J) GOTO 1510,1520,1530 

1500 SOTO 1400 

1510 PRINT 3(H3/ + (J»64),F$; 

1515 GOTO lAOO 

1520 PRINT 3(H3) + (J>64),">V<"; 

1525 GOTO 1600 

1530 PRINT Jin3)MJU4),"Y0U"i 

1600 NEXT I:NEXT J 

Tiled input routine. 

1800 PRINT 8B96,CHR$(30); 

2000 PRINT 8896, "YOUR HDVE: "; 

2002 FOR TH=1 TO 100 

2004 Q$=INKEY$ 

2006 IF B»=" THEN NEXT T« 

2008 IF B$=" THEN Bi="r 

2010 B=ASC(B»): PRINT «B96,CHR»(30); 

Clear last position froi leiory and display. 

2020 A(Xl,Yl)=0:PRrNT 3ail31MYll64)," "jCHRtdS); 

Hyperspace juipoff point. 

2030 IF B=72 THEN H=H+l! PRINT3896,"«HYPERSPACE»'|;X1=RND(19): 
Y1=RND(11I: SOTO 2200 

Deteriine new position based on player's input. 

2032 IF 8=77 THEN X1=X1-1:Y1=Y1+1:G0T0 2200 

2034 IF B=44 THEN Y1=Y1+1;G0T0 2200 

2036 IF a=46 THEN Xl=Xl+l:Yl=Yl+hGOTO 2200 

2038 IF B=74 THEN X1=X1-1: SOTO 2200 

2040 IF B=76 THEN X1=X1+1: GOTO 2200 

2042 IF B=B5 THEN X1=X1-1: Y1=Y1-1: GOTO 2200 

2044 IF B=73 THEN Yl=Yl-l!GOTO 2200 

2046 IF B=79 THEN X1=X1+1: YJ=Y1-1: GOTO 2200 

2080 A(X1,Y1)=0 

Update counters and check Tor collisions. 

2200 H=M+1:IF A(XI,Y1)=0 THEN GOTO 2300 
2210 ON A(X1,Y11 GOTO 2310,2320 
2250 GOTO 2320 

2300 PRINT 8(X1I3)+(Y1«641,'Y0U"|:A(X1,Y1)=3:G0T0 2400 
2310 PRINT 8(XU3) + (Y1»64I,"ZAP";:G0T0 4000 

2320 PRINT 3(Xll3)+(YlJ64i,"BAT"i:G0T0 4000 

2400 J=0 

2410 FOR 1=1 TO B:IF X(I)=0 THEN GOTO 2700 

2500 PRINT 9(I(I)»31+(Y(Ilt64)," "j:A(X(I),Y(I))=0 

2510 X(I)=X(I)+SGNIXl-X(I)):Y(n=Y(n+SGN(Yl-Y(I)) 



2520 ON A(X(1),Y(!)) GOTO 2620,2620,2650 

2530 IF A(X(I),Y(I)) <> THEN GOTO 2650 

2600 PRINT 8(X(I)t3)+(YiI)t64),'>V<";:A(X(I),Y(Il)=2:J=J+l:G0T0 

2700 

2620 X(I)=0:K=K+li GOTO 2700 

2650 PRINT 3(X(n»3)MY(I)»641,"BIT"j:G0T0 4000 

2700 NEXT I 

Recycle to next love. 

2800 IF JOO THEN GOTO 1800 

Gaie Hon. 

3000 PRINT 8B96,CHR$ (30): PRINT 8896, "YOU NIN"; 
3050 G=G+1:N=«+1:IF Ht2>G THEN B=B+1 
3100 IF H=0 AND H<=K THEN B=B+1 
3200 IF HI2(K THEN B=B+1 
3300 GOTO 5000 




Gaie lost. 



4000 PRINT 8896,CHR$(30):PRINT 8896, "YOU LOSE") 

4100 G=G+1:IF ll»2<G THEN B=B-1 

4500 IF K»2>B AND IKK AND H<2 THEN B=B+1 ELSE IF B=0 THEN GOTO 9 

100 

Print scoreboard. 

5000 IF H>1 THEN PRINT " IN";Hi"HOVES.":GOTO 5005 

5001 PRINT " IN"|N;"HOVE." 
5005 PRINT8960,"N0. BATS:";B| 
5010 L=G-I) 

5110 PRINT " GflHES:";Gj" MON/LOST!";l(;"/";Li 

"Coiputer fatigue' check. 

6000 IF G>=100 THEN GOTO 9100 ELSE GOTO 1000 

Exit routine. 

9000 CLS: PRINT TABIll) "TOD BAD YOU COULDN'T NORK UP ENOUGH NERV 

E!":PRINT 

9010 PRINT "IF YOU EVER GET SOBE GUTS, JUST COME BACK AND I HILL 



9015 PRINT "TRY TO FIND ANOTHER CAVE." 

9017 PRINT 8896,; 

9020 END 

9100 CLS:PRINT "THAT IS BUITE ENOUGH! •:END 
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ADVENTURE OF THE MONTH CLUB 




,i*S.-.~ 




ARABIAN ADVENTURE 



JUNE ADVENTURE OF THE MONTH 

As Sinbad, the mightiest sailor in ancient Arabia, it is your mission to rescue Princess Jasmine from the clutches of 
Rex, the Wizard of Darkness. Your search takes you across the Seven Seas to the deadly Cyclops Mountain and you'll 
do battle with frightening skeletons, a one-eyed beast, a hairy tarantula and more monsters who try to thwart your 
noble pursuit. 

You can get great Adventures by... 

Paying up to $35 each (and give up lunch for a month] 

Or by typing them in yourself (and eat at the computer for a week) 

OR you can sign up to join SoftSide's...ADVENTURE OF THE MONTH CLUB. 

Everybody likes Adventures — they're challenging and entertaining every time you play. But too often, pre- 
programmed cassettes and disks cost upwards of $35, a price the manufacturer must charge to defray promotional and 
packaging costs. 

On the other hand, you can enter Adventures yourself, but when you do, you type away all the surprises. As a result, 
the game loses some of its challenge. 

At SoftSide, we've found a way to beat the high cost of Adventuring without having to miss out on any of the fun. 
V\/e're offering no-frill Adventures — high quality Adventures — on cassette or disk at an almost unheard-of price: 
$5 for cassette, $8 on disk. 

We save you money by only advertising this offer to SoftSide readers (you won't see us anywhere else) and by 
foregoing fancy packaging and documentation — you'll get the software and only the software, but we believe it's as 
good as the $50 packages. 

You'll save even more by joining the Adventure of the Month Club. 

Here's how it works: SoftSide's editorial department will select an original BASIC language Adventure each month 
and make it available to you on a subscription basis: 

6 months on cassette: just $27 
6 months on disk: just $45 

Every month we'll tell you about the Adventure you'll be getting in SoftSide Magazine. To order, use the convenient 
order card in this issue — fill it out and send, with payment to: 

Adventure of the Month Club 

Department 681 

6 South Street 

Milford, NH 03055 
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The Atari* Connection. 



ATARI CX70 
LIGHT PEN 
$74.95 




JOYSTICK 
CONTROLLERS 
$19.95 



ADDITIONAL 
RS232 PORTS 



TS€;Hni^lD€ 

6 South St .Milford, NH O3055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



ATARI 825 PRINTER $789.00 



Hardware 

ATARI 400 Computer System, 8K RAM . . . 
ATARI 400 Computer System, 16K RAM . . 
ATARI 400 Computer System, 32K RAM . . 
ATARI 800 Computer System, 16K RAM . . 
ATARI 800 Computer System, 32K RAM . . 
ATARI 800 Computer System, 48K RAM . 

ATARI 410 Program Recorder 

ATARI 810 Disk Drive 

ATARI 822 Thermal Printer 

ATARI 825 Printer (80-col) 

ATARI 830 Acoustic Modem 

ATARI 850 Interface 

16K RAM Module for the ATARI 

32K RAM Module for the ATARI 

MACROTRONICS Printer Interface (36-pin 
MACROTRONICS Printer Interface (40-pin 

ATARI Joystick Controllers 

ATARI Paddle Controllers 

ATARI CX-70 Light Pen 

Dust Cover for ATARI 400 

Dust Cover for ATARI 800 



Softwares;; 



$439.00 (((36-400) 
$499.00 (#36-401) 

$599.00 (#36-402) 

$829.00 (#36-800) 
$949.00 (#36 801) 

$999.00 (#36-802) 
. $69.00 (#36-803) 

$499.00 (#36-810) 

$389.00 (#36-820) 
$769.00 (#36-825) 
$179.00 (#36-830) 
$179.00 (#36-850) 
$109.00 (#36854) 
$179.00 (#36-855) 
) $69.95 (#36-936) 
) $69.95 (#36-940) 
$19.95 (#36-3005) 
$19.95 (#36-3004) 

. . $74.95 (#36-70) 
. . . $7.95 (#16-40) 
. . . $7.95 (#16-03) 



sk 

VISICALC from Personal Software $199.95 (#36-vicl) 

MAILING LIST $24.95 {#36-279002D) 



Softwareca 



ROM programs 

Basketball $34.95 (#36 bask) 

Chess $34.95 (#36-chs) 

Editor/Assembler $49.95 (#36-ase) 

Music Composer $49.95 (#36-muse) 

Star Raiders $49.95 (#36-strds) 

Super Breakout $34.95 (#36-supb) 

Tele-Link $24.95 <#36-tel) 

3D Tic-Tac-Toe $34.95 <#36-3Ttt) 

Video Easel $34.95;(#36-video 



Cassette 

star Trek 3.5 $14.95 (#36-20oo25T) 

Deflection/Simon Says $9.95 (#36-20oo78T) 

Mountain Shoot $9.95 (#36-20oo79T) 

Angle Worm/Crolon Diversion $9.95 (#36-20oo92T) 

Fleet $6.95 (#36-2770ibc) 

Connect Four $6.95 (#36-2770200) 

Letters $6.95 (#36-2770220 

Reverse $6.95 (#36-277023C 

Zap $6.95 (#36-2770240) 

Lander $6.95 (#36-2770i9C) 

Chase $6.95 (#36-2770i7C) 

Computer Acquire $20.00 (#36-2370020) 

Conflict 2500 $15.00 (#36-2370010) 

Lords Of Karma $20.00 (#36-2370010) 

Biorhythms $14.95(#36-bior) 

Blackjack $14.95 (#36-black) 

Hangman $14.95{#36-hanG) 

Kingdom $14.95 (#36-king) 

3-Dimensional Graphics Package $29.95 (#36-3d-g) 



TERMS: Prices and specllicattons are suject to change. HARDSIDE ac- 
cepts VISA & MASTERCARD , Oertif led checks and Money Orders. Personal 
checks accepted (takes 3 weeks to clear). HARDSIDE pays all shipping 
charges (within the 48 states) on all PREPAID orders over $100.00. On all 
orders under $100 a $2.50 handling charge must be added. COD orders ac- 
cepted (orders over $250 require 25% deposit), there Is a $5.00 handling 
charge. UPS Blue Label and Air Freight available at extra cost. 



A<V>Jk ^1® A Warner Communications Company^^ 
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DIVIDE AND CONQUER 



by Phillip C. Soine 

"Divide and Conquer" is an S-80 
program which requires at least 16K 
RAM. 

"Divide and Conquer" is written 
in two separate parts, a sound routine 
and the main program. The sound 
routine must be executed to play the 
game, but once it is executed it need 
not be executed again as long no 
disks are booted or the machine is 
shut off. If you have disk, store the 
two programs on the same disk, call- 
ing the sound program "DIVIDE" 
and the main program 
"CONQUER". To run the program, 
run the program DIVIDE which will 
then run CONQUER. If you have 
cassette, place the sound program 
before the main program on the 
cassette. The sound program will 
then load the main program when it 
is done. 

If you do not want sound, you may 
simply enter the main program, add- 
ing the following line: 

5 POKE 16782,201 

The sound routine uses the NAME 
function instead of the USER(O) 
statement to make the program com- 
patible with both Level II and Disk 
BASIC. The line above for those of 
you without audio amplifiers simply 
cancels the NAME routine from 
functioning, BASIC will simply ig- 
nore any such statements 
encountered. 

When designing this program, the 
author ran into the problem of "gar- 
bage collecting", which caused the 
computer to pause for as much as 30 
seconds while it cleared out string 
space. A friend, who is credited in the 
program, suggested to the author 
that he use the variable pointer func- 
tion so that changes in strings could 
be poked directly into the strings, 
thus avoiding the stalling problem. 
This is what the blank strings at the 
beginning of the program are for. 
They are the strings that store the 
four complete screens, one for each 
player, and they are continuously 
changing. If you break the program 
while a game is in progress and hst it, 
whatever was on the screen at that 
time will show up in these strings. 

In "Divide and Conquer" you 
have been waiting just outside the or- 
bit of the Moon for hours, but 
somehow you know something is 



about to happen. Soon waves of 
ahens will be bearing down on you 
and Earth is depending on you to 
drive them off. These aliens are 
mutants from the now destroyed 
planet of Krypton (yes, that's where 
Superman was from). They have 
hved in space for years and are now 
looking to take over Earth. They 
don't need spaceships or life-support 
systems and they propel themselves 
through space using an advanced 
levitation technique. They are nearly 
indestructible so they don't bother 
with weapons, they will try to destroy 
you by ramming you. 



r\TI ITf\C 



u±vxi;c 
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Your weapons are armed with the 
only thing known to kill the aUens, 
kryptonite (what else?). Hitting an 
alien may only make matters worse 
for you because a characteristic of 
their mutation is that they divide up 
into separate aliens when hit. But, 
they can only divide up so much — 
eventually you will get rid of them. 

The battle will be recreated on your 
ship's computer screen. This allows 
you to view yourself in relation to the 
aliens. Your ship, if visible, will 
always be shown at the top of the 
screen with the aliens coming up at 
you. You use the "less than" and 
"greater than" keys to move your 
ship and the space bar to fire. 

SoflSide June 1981 



Just because you are destroyed, it 
doesn't mean it's all over with. The 
computer automatically teleports you 
back to Earth when your ship is being 
destroyed. To begin with you are 
allotted three ships. You are allowed 
more only if you do well enough. 
(Earth doesn't want to wasted expen- 
sive ships on inferior pilots.) The 
computer judges how well you do 
through the following scoring, 
system: 



Alien type 

****** 

#### 

+ + 



Points 

10 
25 
50 

100 



For each 10,000 points you earn, 
you get an extra ship. Your score is 
shown in the upper right corner and 
the number of ships left in the upper 
left. 

The aliens get angry and speed in- 
creases as you hit smaller ahens. As a 
result their speed will frequently 
change as you hit the different kinds 
of aliens. 

The first wave of aliens consists of 
four large aliens. If you can get rid of 
them, another wave of aliens will 
come, with four additional large 
ones. The waves will continued to in- 
crease by four up to a maximum of- 
sixteen large aliens. 

If the aliens don't hit you, then, 
when they go off the top of the 
screen, they appear again at the bot- 
tom. You are allowed a certain 
number of these "passes" before 
there is an invasion. (How many 
depends on the level you chose and 
how many large aliens there were in 
the wave.) If there is an invasion your 
ship isn't destroyed but you do 
receive penalty points. The total 
penalty points are determined by the 
kind and the amount of aliens that in- 
vade. The times at which each kind of 
alien will invade and the penalty 
points for each one that invades is as 
follows: 





Fraction of 






total passes 


Penalty 




allowed before 


points 


Alien type 


mvasion 


each 


****** 


1/4 


1,000 


#### 


1/2 


500 


-1- -1- 


3/4 


250 


- 


1 


100 



You will receive a warning when 
you are three passes away from an in- 
vasion. An arrow will appear next to 
your score and you will hear a high 
pitched tone. 

If, at any time, you have a negative 
score, the aliens take over Earth. But 
if, on the other hand, you receive a 
score of 100,000 or more then you 
have single-handedly defeated the 
aliens. Otherwise your contribution 
to defeating the aliens is propor- 
tionate to your score. 

The skill level ranges from 1 to 20, 
(low to high) and controls, as already 
explained, the number of passes 
allowed by the aliens before they in- 
vade. There are also four versions 
which are made up of combinations 
of the following two factors: 

1 . You are able to refire at any time 
or you must wait until the missile hits 
something or goes off the screen. 

2. Whether your ship is visible or 
not. 

These factors are arranged into the 
four versions as follows: 







Refire 


Version 


Ship visible 


anytime 


1 


Yes 


Yes 


2 


Yes 


No 


3 


No 


Yes 


4 


No 


No 



One to four players can play at one 
time. 



Now, if you're sure you have read 
these instructions carefully and 
thoroughly then you are ready to at- 
tempt to "Divide and Conquer". 

VARIABLES 

A(3,16): Storage of each person's 

screen. 

CT(3,3): For each person and for 

each type of alien it stores the total 

hit or invaded. 

LC(3,16): POKE locations for each 

line of each person's screen. 

V(3,16): Location of large aHen for 

each line of each person's screen. 

BH(3): Points needed for next 

bonus ship, each person. 

D(0)-D(2): Ship printout. 

D(3)-D(8): Destruction of ship. 

GT(3): Each person's score. 

H(3): Ships left for each person. 

IN(7): Separate letters for invasion 

graphics. 

IV(3): Point of invasion, each 

person. 

L(3): Next line to print for each 

person. 

N(3): Name of each person. 

RF(3): Refire capability of each 

person. 

SA(3): Stores first invasion time for 

each person, which is transfered to 

IV(3). 

SK(3): Skill level for each person. 



T(3): Total aliens in the wave, for 

each person. 

TI(3): Count to invasion, for each 

person. 

VB(3): Whether or not each person's 

ship is visible. 

VN(3): Version, for each player. 

D: For firing shot. 

DR: Prints up arrow if close to an 

invasion. 

F: Print location of the shot. 

FR: Distance shot is away from the 

ship. 

IP: Points penalized for an 

invasion. 

I, J: Loop variables. 

LK: Stores which alien you hit by a 

PEEK to the screen. 

LV: Line of screen at which the 

alien was hit. 

P: Current player number. 

Q: When U reaches this point, the 

aliens advance. 

R: Stores whether the hit was 

detected at the current point of the 

shot or one space ahead of it. 

SP: Space across at which the hit 

occurs. 

T: Location of sound subroutine. 

TP: Total players. 

U: Count that decides when the 

aliens advance. 

X: Ship's position. 

Y: For proper trailing blank, if 

needed. 

Yl: Modifies ship print position. 




50000 ' MACHINE LANGUAGE LOADER 

50010 P0KEI6553,255 

50020 TH=PEEK (I65A1 ) +256JPEEK (16562) 

50030 N=167B3:ML=TI1+9:G0SUB50210 

50040 G03UB50240 

50050 CLS:PRINT9384, "MEMORY SIZE MUST BE SET TO AT LEAST 125 BYT 

ES LESS THAN MAX" 

50060 PfilNT'E.G. 32642 FOR I6K. IF IT'S NOT, POWER OFF AND START 
AGAIN!!" 

50070 PRINTS593, 'PRESS ENTER TO CONTINUE!!!"; 

50080 A$=INKEY»:IFA$="THEN500BO 

50090 CLS:PRINTCHR< (23) :PRINTJ454, "THANKS TO CAP ELECTRONICS" 

50100 PRINTTAB(3)"F0R THE SOUND SUBROUTINE" 

50110 READA»:IFA»<>"ML»"THEN50110 

50120 F0RN=TM+2TOTM+2O0 

50130 READML:IF HL>255THENN=64»1024:GOT050160 

50140 IFML<OTKENGOSUB50190:GOTD50160 

50150 POKEN,ML 

50160 NEXT:REST0RE!CLS:PRINT846B, "STARTING ADDRESS ='|TM+2 

50170 PRINT3534, "LOADING MAIN PROGRAM" 

501B0 RUN"CONQUER': 'IF YOU HAVE CASSETTE, REPLACE THIS 
'LINE WITH: 50190 CLOAD 
'AND PLACE THE MAIN PROGRAM DIRECTLY 
'AFTER IT ON THE CASSETTE 



50190 HL=TH-ML+1 

50200 IFML>TM+9THENML=HL+1 

50210 IFML<0THENML=ML+65536 

50220 Z1=INT(ML/256)!Z2=HL-Zlt256 

50230 PQKEN , Z2: POKEN+ 1 , Z 1 ! N=Nf 1 : RETURN 

50240 IFTM>32767THENTM=TM-65536 

50250 RETURN 



CS 



50260 DATAHLt, 50, 0,15, 0,0, 0,0, 229, 219, 255. 230, 64, 238, 64, 15, 15, 15 
,246 

50270 DATA 1,95,243,58,-6,87,58,-7,254,0,194,-37,122,50,-7 
50280 DATA 42,-1,34,-53,42,-3,34,-50,33,15,0,1,50,0,11,120,177 
50290 DATA 194,-55,123,238,3,211,255,95,43,124,181,194,-52,58 
50300 DATA -5,254,0,202,-104,61,50,-5,58,-53,130,50,-53,58,-7 
50310 DATA 103,122,50,-7,84,195,-49,50,-7,50,-4,50,-2,62,15 
50320 DATA 50,-3,62,50,50,-1,251,225,201,300 

Lines 10-40: Set up arrays, define variables to their 
respective types, and find the entry point for the sound 
routine. Line 30 sets variable T equal to the beginning 
of protected tesory using BASIC'S pointer at locations 
16561 and 16562. 

10 CLEAR 1000:DEFSTR D,N:DEFIMT H-L:GOSUB 30:G0SUB 9000 

20 CLEAR 100:DEFSTR A,D,N,0:DEF!NT C,F,H, I,J,L,P-Y:X=131:FR=0:I= 

0:U=0:Y=0:Y1=0:D="":DR="":LK=0:F=0:Q=0:R=0:DIM A(3,16),H(3),eT(3 

),VB(3),RF(3),L(3),D(8),TI(3),IV(3),LC(3,16),CT(3,3),BH(3),V(3,1 

6),SA(3),SK(3),T(3),IN(7),N(3),VN(3) 

30 T!=PEEK(16561)+2+PEEK(16562)«256:IF T!>32767 THEN T=T!-65536 

ELSE T=T! 

40 IF X=0 RETURN 

Lines 50-260: Eupty graphic strings to contain saved screen 
displays. Each line contains 64 spaces, tthich »ay be entered 
using the tab or right arrow key to speed the process up. 



50 A=" 
A(0,1)=" 



^ 
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A(0,2)=" 



60 fi(0,3)=" 
A(0,4)=" 

A10,5)=" 

70 A(0,6)=" 

A(0,7)=" 

A(0,B)=" 

BO At0,9)=' 

A(0,10)=" 

A(0,11)=" 

H 

90 A(0,12)=" 

A(0,13)=" 

A(0,141=" 

100 A(0,15)= 

A(0,1M=" 

A(l,l)=" 




"i 






^ 






\ 



Q 



6 



5)=" 



8) = 



110 All 
Ad, 3) = 

Ad, 41 = 
120 Ad 
Ad, 6) = 
Ad, 7) = 
130 Ad_ 
Ad, 9)=" 
Ad, 10) = " 
140 Ad,li: 
Ad, 12) = ' 
Ad, 13) = " 

n 

150 Ad, 14 
Ad, 15)=" 
All, 16)=' 
160 AI2,1)^ 
A(2,2)=" 
A(2,3) = " 



2)=" 








i:^ 



^ 







C^ 



-♦r 




^ 



..../ 






■\ 




J^ 



4> 



170 A(2,4)=" 

A(2,5)=" 

A!2,6)=" 

■ 

180 A(2,7)=' 

A(2,8)=" 

A(2,9)=" 

190 A(2 

A(2,ll)=" 

A(2,12)=" 

200 A(2,13)=" 

A(2,14)=" 

A(2,15)=" 

i 

210 A(2,16)=" 
A(3,l)=" 

A(3,2)=" 
220 A(3,3)=" 
A(3,4)=" 
A(3,5)=' 

H 

230 A(3,6)=" 

A(3,7)=" 
A(3,8)=" 
240 A(3,9)=" 
A(3,10)=" 
A(3,ll)=' 

H 

250 A(3,12)=' 
A(3,13)=' 
A(3,14)=" 
260 Ai3,15)=" 
A(3,16)=" 

Lines 270-330: Initialize soie iiportant variables. 

270 FOR I=0T03:F0R J=1T016 

280 LC(I,J)=PEEK(VARPTR(A(I,J))+l)+PEEK(VARPTR(Ad,J))+2)J256 

290 NEXTJ,! 

300 D(3)=" ■+CHR$d79)+' "+CHRJ(179)+" "; 

D(4)=" ■+CHR«()[) + " ■: 

D(5)=" "+CHRt(X) + " "+CHR$()() + " ': 

D(6)=" ■+CHR$(X)+' ■+CHR»(140)+" "+CHR$(X)+" ": 



4 
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D(7)=CHR$(J()+STRING$(7,32)+CHR$()(): 

D(8)=CHR$(M0)+" '+^$(176)+" "+CHRI(I10) 

310 0='INVASiaN' 

320 GOSUB 10000 

330 D(0)=CHRK143)+CHRt(lSS)+CHR$(143):D(l)=D(0)+" 

0) 



s 



:D(2)=" ■+D( 



Lines 500-550: Increient variable P to start next player. 
If variable P is Bore than the nuiber of players, it is 
reset to lake it the lirst player's turn again. The bracket 
character in line 550 is an up-arrow character— CHR$ (91) 

500 P=PtI:IF P>TP THEN F=0 

510 IF H{P)=0 THEN 500 

520 aS!PRINTCHR»(23):PRIMT3472-INT(LEN(NtP)l/2)>2,N(P)"'S TURN" 

530 FDR I=1TD5000:NEIT 

5« D=INKEY$!Q=4:FR=0:X=30:n = l:CLS 

550 IF TI(P)+4>IV(P) THEN DR='[":POKE T,15:P0KE T+3,1:NAHE ELSE 

DR=" ■ 

Lines 1000-1100; Main gaie loop. Checks for shots being 
fired, ship loveient, ship collisions, and hits scored on 
aliens. In line 1020, the test PEEK(143t8)=14 checks if the 
•<■ key is depressed, and PEEK(U548)=i4 checks for the ">' 
key. 

1000 ' 

1010 D=1NKEY$:IF D=" ' AND (FR=0 OR RF(P)=1) THEN POKE T,60:P0KE 
T+2,1:PDKE T+4,30:P0KE T+5,5iNANE:IF FROO PRINTJF," ■i!FR=l:F= 
X+65 ELSE FR=l:F=X+65 

1020 IF PEEK(14368)=16 THEN K=X-1:Y=1:Y1=0 ELSE IF PEEK(14368)=i 
4 THEN 1(=X+1:Y=2:Y1=1 ELSE Y=0:Y1=0 
1030 IF X<0 THEN 1=0: Y=0 ELSE IF X>61 THEN X=61:Y=0:Y1=0 
1040 IF FR>1 PRINTJF,* "j:F=F+64:IF FR=U THEN FR=0 
1050 U=U+1:1F U=Q THEN U=0:Y=0:Y1=0!PRINTJ1023," ";A(P,L(P));:L( 
P)=L(P)tl:POKE T,Qt50:NAKE:IF L(P)=17 THEN L(P)=l:TI(P)=TI(P)tl! 
IF TI(P)=IV(P) SOTO 4000ELSE IF TI(P)+4>IV(P) THEN DR="[':POKE T 
,15: POKE T+3,1:NAH£ ELSE DR=' ■ 

1060 FOR I = 15360+n0153i2+X:IF PEEK(I)>32 AND PEEK(I)<44 THEN 30 

OOELSE NEXT 

1070 PRINTJ0,USIN6"ll"iH(P);:PRINT358,DR!USINB"llliriGT(P);:lF 

VB(P)<>1 PRINTJX-Y1,D(Y)| 

1080 IF FROO THEN LK=PEEK(15296+F):IF LK032 AND FR>1 THEN R=l: 

GOTO 2000ELSE LK=PEEK(15360+FI:IF LK032 THEN R=0!60TO 2000 

1090 IF FROO PRINT3F,".";:FR=FR+1 

1100 GOTO 1010 

Lines 2000-2850: Routines to destroy and divide aliens, 
adding to the score appropriately. 

2000 ' 

2010 LV=L(P)+FR-U-R:1F LV<1 THEN LV=LV+li 
2020 SP=F-FRl64-l 

2030 IF LK=42 EOSUB 2B10ELSE IF LK=35 GOSUB 2610ELSE IF LKM3 GO 
SUB 2410ELSE SOSUB 2200 

2040 FR=0:IF GTiF)>BH(P) THEN K(P)=H(P)+l:BH(P)=BH(P)+5000!lF GT 
(P)>99999 THEN 6000ELSE FOR I=1T03:P0KE T,10:P0KE T+3,2:NAHE:F0R 
J=1T010;NE1(TJ,I 

2050 IF CT(P,0)=r(P)t8 GOSUB B000:DR=" ':G0T0 540ELSE 1010 
2200 '- DASHES - 

2210 POKE T,60:NAKE:PRINT3F-RU4," "; 
2220 POKE LC(P,LV)+SP+I,32 
2230 GT(P)=GT(P)tl00 

2240 Q=l:U=0:CT(P,O)=CT(P,0i + I j^^jn^ 

2250 POKE T, 40: NflllE: RETURN 
2400 '++ PLUSES ++ 
2410 IF PEEK(15359+F-R»64)M3 THEN SP=SP-1 
2420 POKE T,125:IWHEiPRINTJ(FR-R)t64+SP,"- -'; 
2430 POKE LC(P,LV)+SP,45:P0(;E LC(P,LV)+SP+I,32!P0KE LC(P,LV)+SP+ 




2,32:P0KE LC(P,LV)+SP+3,45 

2440 Q=2:U=1:CT(P,1)=CT(P,1)+1:IF CT(P,1)=T(P)I4 THEN IV(P)=SA(P 
)«4:DR=" " 
2450 GT(P)=GT(P)t50 
2460 POKE T, 75: NAME; RETURN 
2600 'tilt NUNBERS till 

2610 IF V(P,LV)+8<SP THEN RN=V(P,LV)+8 ELSE RN=V(P,LV)-2 
2620 POKE T,175:NAHE:PRINT3(FR-R)I64+RN,'++ ++■; 
2630 POKE LC(P,LV)+RN,43:P0KE LC(P,LV)+RN+1,43:F0R I=2T05:P0KE L 
C(P,LV)+RN+I,32:NEXTI:PDKE LC(P,LV)+RN+6,43:P0KE LC(P,LV)+RN+7,4 
3 

2640 B=3:U=1:CT(P,2)=CT(P,2)+1:IF CT(P,2)=T(P) J2 THEN IV(P)=SA(P 
1«3;DR=' " 
2650 GT(P)=GT(P)+25 
2660 POKE T,125:NA«E:RETURN 
2800 'ttttti STARS ttttti 

2810 POKE T,225:NAHE:PRINT9(FR-R)»64+V(P,LV),"I«I lllfj 
2820 FOR I=0T03:P0KE LC(P,LV)+V(P,LV)+I,35:NEXTI:F0R I=4T09;P0KE 
LC(P,LV)+V(P,LV)M,32;NEXTI;F0R i=I0T0I3:P0KE LC(P,LV)+V(P,LV) + 
I,35:NEXTI 

2830 Q=4:U=l!CT(P,3)=CT(P,3) + l:IF CTiP,3)=T(P) THEN IV(P)=SA(PH 
2:DR=' ■ 

2840 ET(P)=GT(P)+10 
2850 POKE T,175:NAME:RETURN 

Lines 3000-3100: Handles the explosion of the player's 
ship after a crash, and checks for end of gaie. 

3000 ' 

3010 FOR I=3T07 STEP2 

3020 IF X>58 PRINTJX-3,LEFT»(D(I),67-X)i:PRINTJX+61,LEFT«(D(I+l) 

,67-X);:G0T0 3050 

3030 IF X<3 PR!NTJ0,RIGHTt(D(I),X+6);:PRINT864,RIGHT»(D(I+l),X+6 

)i:G0T0 3050 

3040 PRINT3X-3,D(Ii;:FRINT3X+61,D(I+l); 

3050 POKE T,H25:P0KE T+2,1:P0KE T+4,30:P0KE T+5,2:NAKE 

3060 NEXTI 

3070 H(P)=H(P)-1:IF H(P)=0 aS:PRINTCHRJ(23):PRINT3462-INTILEN(N 

(P))/2)I2,N(P)"'S HISSION IS 0VER":F0R 1=1 TO 2000:NEXT 

3080 FOR 1=0T0TP 

3090 IF HdOO THEN 500ELSE NEXT I 

3100 GOTO 7000 

Lines 4000-4930: Invasion routine. Called after the aliens 
have passed all the way to the top of the screen a certain 
nuiber of tiies, based on the skill level. The 'INVASION' 
(essage displayed is contained in variable Ot. 
The routine starting at lines 4300, 4500, 4700 and 4900 are 
routines for each type of alien to deteriines such things 
as hoH lany points the invasion Hill cost. 

4000 ' 

4010 CL5: PRINT CHR*(23) 

4020 ON IV(P)/SA(P) GOSUB 4300,4500,4700,4900 P* >^ 

4030 FOR I=0T07:IN(I)=464+U4:NEXT 

4040 FOR J=1T08 

4050 L=RND(B)-1:1F IN(L)=0 THEN 4050 

4060 IB=(64+RND(3)-2)«(3-2IRND(2)) 

4070 FOR I=IN(L)+IBI7T0IN(L) STEP-IB 

4080 PRINTJI.Olj 

4090 POKE T,40+I/ABS(IB)I10:NAI1E 

4100 PRINT3I,' 'j 

4110 NEXTI 

4120 PRINT3IN(L),MIDt(0,L+l,l)j:IN(L)=0 

4130 NEXTJ 

4140 FOR 1=100 TO 200 STEP5:P0KE T,I-50;NAHE:P0KE T,I;NAf(£;PDK£ 

T, 300-1 :NAN£: POKE T,250-I:NAHE:NEXT 

4150 PRINT3450,'Y0U ARE fENALIZED'ilPj'POIHTS"; 

4160 FOR I=1T02000:NEXT continued on next page 
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4170 GT(P)=GT(P)-IP 

4ia0 IF GTiPXO THEN 5000 

4190 CLS:FR=0:Q=4!U=l!DR=" " 

4200 IF CT(P,0)=T(P)<8 SOSUB 8000:G0TD 540ELSE 1010 

4300 'm«t STARS tttU 

4310 FOR MT016 

4320 IF ft(P,I)<>A THEN IF PEEK(LC(P,I)+V(P,I)+4)=42 THEN FOR J=4 

Ta9:P0l!E LC(P,I)+V(P,I)+J,32:NEXT 

4330 NEHI 

4340 IP=T(P)-CT(P,3):IV(P)=SA(P)I2 

4350 CT(P,2)=CT(P,2I+IPI2:CT(P,1)=CT(P,1)+1PH:CT(P,0)=CT(P,0) + I 

P>B 

4360 IP=IP«1000:01="r 

4370 RETURN 

4500 'Itll NUHBERS ttii 

4510 FDR Mim 

4520 IF A(P,I)=A THEN 4550 

4530 LC=LC(P,I)+V(P,I);IF PEEK(LC)=35 THEN FOR J=0T03:P0KE LW, 

32!NEXT 

4540 IF PEEK(LC+10)=35 THEN FOR J=OT03:POKE LC+10+J,32:NEXTJ 

4550 NEXTI 

4560 IP=T(P)t2-CT(P,2):IV(P)=SA(P)«3 

4570 CT(P,1)=CT(P,1)+2»IP!CT(P,0)=CT(P,0)+4»IP 

4580 IP=IP«500:01="I' 

4590 RETURN 

4700 '++ PLUSES ++ 

4710 FOR I=1T016 

4720 IF A(P,I)=A THEN 4770 

4730 LC=LC(P,I)+V(P,I)!lF PEEK(LC-2)=43 THEN POKE LC-2,32:P0KE L 

C-1,32 

4740 IF FEEK(LC+4)=43 THEN POKE LC+4,32;P0KE LC+5,32 

4750 IF PEEK(LC+8)=43 THEN POKE LC+8,32:P0KE LC+9,32 

4760 IF PEEK(LC+14)=43 THEN POKE LC+14,32!P0KE LC+15,32 

4770 NEXTI 

4780 IP=T(P)>4-CT(P,1):IV(P)=SA(P)I4 

4790 CT(P,0)=CT(P,0)+2IIP 

4600 IP=IP«250;01='+" 

4810 RETURN 

4900 '- DASHES - 

4910 IP=100t(T(P)l8-CTiP,0)) 

4920 CT(F,0)=T(P)«8:01="-" 

4930 RETURN 

Lines 5000-5080: Ending routine when a negative score is 

achieved. 

5000 ' 

5010 H(P)=1:GT(P)=0 

5020 CLS:PRINT CHR$(23) 

5030 PRINT3330,"yOUR SCORE IS NEGATIVE" 

5040 PRINT3456, "THANKS TO YOUR INEPTITUDE" 

5050 PRINT3512,"THE ALIENS HAVE TAKEN OVER EARTH" 

5060 PRINT3646, "PREPARE TO PERISH IN SPACE" 

5070 X=3:Y=2:F0R I=1T030:Z=X:X=Y:Y=Z:P0KE T+l.XtPOKE T+2,100/X:N 

AHE:NEXT 

5080 GOTO 3070 




Lines 600O-60B0: 
100,000. 



Ending routine if score has reached 



6000 ' 

6010 H(P)=1:GT(P)=100000 

6020 CLS:PRINT CHR$(23) 

iOJO PRINTJ336, "CONSRATULATIONS I ' 

6040 PRINT}456,"YQU HAVE SINGLE HANDEDLY" 

6050 PRINTJ524, 'CONQUERED THE ALIENS" 

6060 PRINT3644,"THE SURVIVORS ARE RETREATING" 

6070 FOR I=50T0250:POKE T,I:NflHE!POKE T,300-I:NAnE!NEXT 

6060 GOTO 3070 



Jd^ 



^ 



^ 



/T 



Lines 7000-7100: Display the final scores, ini allow iht 
gaie to be restarted. 

7000 •• 

7010 CLS;PRINTCHR«(23) 

7020 PRINT3256,"NANE"jTAB(ll)"VERSI0N";TAB(20)"LEVEL",-TAB(27)"SC 

ORE" 

7030 FOR I=0T0TP 

7040 PRINTNII);TAB(13)VN(I)jTAB(21)USING'ir;23-SK(I)j:PRINTTAB( 

25)USING'lff,lir;GT(I); 

7050 NEXTI 

7060 PRINT:PRINTTAB(1)"D0 YOU HANT TO PLAY AGAIN";!lNPUT D 

7070 IF LEFT»(D,1)="Y" RUN 20 

7080 CLS:PRINT CHR<(23) 

7090 PRINT3464, "EARTH IS D00MED":PRINT3B32,"" 

7100 END 

Lines 6000-8180: Set up a wave of aliens. 

8000 ■• 

SOlO CL5:PRINT CHR$(23) :PRINT3398,"HERE COMES ANOTHER" 

8020 PRINT3530,"«AVE OF ALIENS' 

8030 FOR I=OT03:CT(P,I)=0:NEXT 

8040 SA(PI=SA(P)+SK(P):IV(P)=SA(P) 

6050 T1P)=T(F)+4:IF T(P)>16 THEN T(P)=16!SA(P)=4«SK(P) 

8060 TI(P)=0 

8070 FOR I=1T016 

8080 IF A(P,II=A THEN 8120 

6090 FOR J=0T062 

8100 POKE LC(P,II+J,32 

8110 NEXTJ 

8120 NEXTI 

B130 FOR I=1T0T(P) 

8140 L=RND(16):X=RND(43)+7 

6150 IF A(P,L)=A THEN FOR J=0T05:POKE LC(P,L)+X+J,42:NEXT ELSE 8 

140 

8160 V(P,L)=X-4 

8170 NEXTI 

8180 DR=" ■:L(P)=0:RETURN 

Lines 9000-9350: Print the graphic introduction to the 
prograi. The data froi line 9140-9240 contains the data 
for the graphic strings. Each itei in data is one graphics 
character in the string. A value of 128 is added to each 
piece of data read to get the proper graphics code. By 
adding the 126, all the data iteas are reduced in length 
froa three digits each to only one or txo, saving tiie. 

9000 ■• 

9020 CLS:PRINTCHR«(23):PRINTJ456,"IF YOU HAVE THE SKILL' 

9030 FOR J=1T02:F0R I=1T0106:IF 1=54 THEN D(J1=D(J)+STRING$(11,3 

2) 

9040 READ L:D(J)=D(J1+CHR$(L+128):NEXTI,J 

9050 CLS:PRINTCHR$(23);PRINT3466,"AND THE GUTS" 

9060 FOR J=3T04;FDR I=1T054:IF 1=28 THEN D(J)=D(J)+STRING»(37,32 

I 

9070 READ L:D(J)=D(J)+CHR$(L+128):NEXTI,J 

9080 PRINT3462, "YOU'RE READY FOR" 

9090 FOR J=5T06:F0R I=1T0127:READ L:D(J)=D(J)+CHR»(L+128):NEXTI, 

J 

9100 CLS:FOR I=0T03B4 STEP64:PRINT33B9-I,D(1);:PRINT35I7+I,D(2)! 

:IF 1=0 THEN FOR J=1T02000:NEXT ELSE POKE T,243-I/4:P0KE T+2,5:P 

OKE T+4,32:P0KE T+5,255:NAHE 

9110 CLS:NEXTI:PRINT35,RIGHT»(D(l),53)j:PRINT3965,LEFT$(D(2),53) 

;:POKE T,13I:P0KE T+2,5:P0KE T+4,32:P0KE T+5,255:NAME:CLS:F0R J= 

1T0100:NEXT:P0KE T,1I5:P0KE T+2,5:P0KE T+4,32:P0KE T+5.255;NAHE: 

FOR J=1T0500:NEXT 

9120 PRINT3402,D(3)i;PRINT3530,D(4);:F0R J=1T02000:NEXT 
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9130 CLS:PRINT80,RI6HT$(D(5),63);:PRINT8960,LEFT*(D(6),63);!P0KE 
T,B4:PDK£ T+2,5:P0K'E T+4,32:P0KE T+5,1:NAHE!CLS:F0R I=384T00 ST 
EP-64!PRINT8384-I,D(5);:PRINTS512+I,D(6); 
9140 POKE T,196-I/4:P0KE T+2,5:P0KE T+4,32:P0KE T+S.liNAHEilFIO 
CLS.-NEXTI ELSE FOR J=1T02000:NEU 

9150 DATA 63,63,15,15,15,60,48,0,0,15,15,15,63,63,15,15,15,0,43, 
63,0,0,0,0,63,63,0,15,15,15,63,63,15,15,15,0,63,63,15,15,15,60,4 
8,0,0,63,63,15,15,15,15,15,15 

9160 DATA 63,63,0,0,0,2,63,61,0,0,0,0,63,63,0,0,0,0,63,63,0,0,0, 
0,63,63,0,0,0,0,63,63,0,0,0,0,63,63,0,0,0,2,63,61,0,63,63,48,48, 
48,48,48,48 

9170 DATA 63,63,0,0,0,32,63,31,0,0,0,0,63,63,0,0,0,0,2,47,61,16, 
32,62,31,1,0,0,0,0,63,63,0,0,0,0,63,63,0,0,0,32,63,31,0,63,63,3, 
3,3,3,3,3 

9180 DATA 63,63,60,60,60,15,3,0,0,60,60,60,63,63,60,60,60,0,0,0, 
11,63,63,7,0,0,0,60,60,60,63,63,60,60,60,0,63,63,60,60,60,15,3,0 
,0,63,63,60,60,60,60,60,60 

9190 DATA 42,63,31,15,15,15,47,63,21,42,63,63,52,0,0,0,63,63,0,6 
3,63,15,15,15,60,48,0,42,63,53,48,48,48,58,63,21,42,63,23,47,61, 
16,0,63,63,0,63,63,0,0,0,2,63,61 

9200 DATA 42,63,23,3,3,3,43,63,21,42,63,21,0,11,63,52,63,63,0,63 
,63,0,0,0,32,63,31,42,63,21,0,0,0,42,63,21,42,63,21,0,0,2,47,63, 
63,0,63,63,60,60,60,15,3,0 

9210 DATA 42,63,31,15,15,15,15,15,5,42,63,31,15,15,15,47,63,21,4 
2,63,63,52,0,0,0,63,63,0,63,63,15,15,15,15,63,63,0,63,63,0,0,0,0 
,63,63,0,63,63,15,15,15,15,15,15,0,63,63,15,15,15,15,63,63,0 
9220 DATA 42,63,21,0,0,0,0,0,0,42,63,21,0,0,0,42,63,21,42,63,23, 
47,61,16,0,63,63,0,63,63,0,0,0,0,63,63,0,63,63,0,0,0,0,63,63,0,6 
3,63,48,48,48,48,48,48,0,63,63,48,48,48,48,63,63 
9230 DATA 42,63,21,0,0,0,0,0,0,42,63,21,0,0,0,42,63,21,42,63,21, 
0,11,63,52,63,63,0,63,63,0,12,52,16,63,63,0,63,63,0,0,0,0,63,63, 
0,63,63,3,3,3,3,3,3,0,63,63,15,63,51,3,3,3,0 
9240 DATA 42,63,61,60,60,60,60,60,20,42,63,61,60,60,60,62,63,21, 
42,63,21,0,0,2,47,63,63,0,63,63,60,60,60,63,63,63,0,63,63,60,60, 



60,60,63,63,0,63,63,60,60,60,60,60,60,0,63,63,0,0,3,15,60,48 
9250 CLS:PRINTCHRt(23):PRINTJ192,'C0BPLETELY CREATED AND DEVELOP 
ED" 



9260 PRINTJ350,'BY" 

9270 PRINT3466, "PHILLIP SQINE" 

9280 PRINT3526,"905 N. 15TH STREET" 



t^ 



9300 PRINT9716, "COPYRIGHT JULY 1980" 

9310 FOR I=1T05000:NEXT 

9320 CLS:PRINTCHRt(23):PRINT339B, "SPECIAL THANKS TO" 

9330 PRiNT3466,"J0HN MCKNIGHT" 

9340 PRINT3516,"F0R THE STRING STORAGE IDEA" 

9350 RETURN 

Lines 10000-10120: Set the playing paraaeters for each 
player, and initializes the first wave of aliens. 




10000 
10010 
10020 
10030 
10040 
T N(P) 
10060 
10070 
10080 
10085 
VN(P) 
10087 
10090 
10100 
10110 
10120 



CLS:PRINT CHRt(23):PRINT3454,'H0M MANY PLAYERS (1-4)"; 

INPUT TP:IF TP<1 OR TP>4 THEN lOOlOELSE TP=TP-1 

FOR P=OTOTP 

CL3:PRINTCHRt(23):PRINT344B."NAHE OF PLAYER NO. ";P+l!:INPU 



CLS:PRINTCHR«(23):PRINT3458, "SKILL LEVEL (1-20)'; 

INPUT SK(P):IF SK(P)>20 OR SK(P)<1 THEN 10060 

H (P) =3: BH (P) =4999: SK fp) =23-3K (P) 

PRINT3458, "WHICH VERSION (1-4)";:INPUT VN(P):IF VN(P><1 OR 

>4 THEN 10085 ELSE IF VN(P)>2 THEN VB(P)=1 

IF VN(P)/2<>INT(VNiF)/2) THEN RF!P)=1 

CLS:PRINTCHR<(23):PRINT3472, "WORKING" 

GDSUB 8030 

NEXTP 

RETURN 



o 



S-80 ONE LINERS 



1 INPUTH:aS!G=12:FORT=OT0127:FORO=CT(M7!SET(T,D)!feT:G=G+RND(3 
)-2+l«(G=t7)!NEXT!FORF=0TCI99-Hx5;P=PEEK(1110fl)!H=H+.5i(P=32)-.5i 
(P=6'») :U=V+.25+.5x(P=8) tRESET(X,Y) tX=X+HtY=Y+V:iFPOINT(X,Y)=0SET 
(X,Y);NEXTELSnFV<=llANDH=0PRINT8319,"LANOED"ELSERESET(X,Y)!RUN 



John Boyer 
Anaheim, CA 



10 CLS!J=27tP=15391!F0RH=lT09E9!T=Wfl)(99) :FORL=RND(T)TOTSTEPRf«)( 
9)/9!J=50-ABS(ABS(J+SIN(L))-50)tA=PEEK(l'H00)/32:P=P-((AANDl)-(A 
/2AN01))x(PEEK(111(4t)+l)!PRINnAB(J)"!!! . !! !":IFPEEK(P)=33 
PRINT"SC0RE:"SELSEP0KEP,191!S=S+1:NEXTL,H 

James Petivan 
New Orleans, LA 

10 CLS{PRINT"Hn SPACE BAR TO SEE A NEW PATTERN":FORX=1T0700!NEX 
TX:FORT=lTO50000:(lS!FORZ=lTO1160!X=W«)(&1)-l!Y=W«)(21)-ltSET(X, 
Y);SET(X,17-Y):SET(127-X,V-Y):KT(127-X,Y):IF INKEY»=""THEf»tXT 
Z.T'.GOTOlOELSENEXniGOTOlO 

Mark Soupene 
Hamilton, OH 

10 CLEAR 255!F0RX=1T0255;PRINTSTRING$(X,191),:NEXT:F0RX=Z55T01ST 
EP-r.PRINTSTRING$(X,191> , iNEXTlGOTOlO 

Brian Yamauchi 
Oxford, OH 




VINYL 
BINDERS 

Collectors! Protect your SoftSide back 

issues, Volumes I and II. or any publication of 

your ctioice, with these durable wood-grain 

vinyl binders with inside poclcet and clear 

spine sleeve for easy identification. Holds 

and protects 12 back issues. A regular $4.95 

value, SALE priced at $3.95*. FREE (while 

supply lasts) with the purchase of Volume I or 

II (12 issue collection of SoftSide), 

SMALL #75-401001 $3.95 

872X11 #75-401002 $7.95 

T5€:T?lf^lD€ 

6 South SI .Milford, NH 03055 I603)673-5U4 
TOLL FREE OUT-OF-STATE 1 -800-258-1 790 
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E IS TERMFIC 

(Fop Youp Apple) 



NIBBLE 18: The Reference for Apple computing! 

NIBBLE I8l One of the Fastest Growing new Magazines in 
the Personal Computing Field. 

^ NIBBLE ISl Providing Comprehensive, UsefuLand 
(^".^ Instructive Programs for the Home, Small Business, and 
s| Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NIBBLE IS: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 

- "Certainly the best magazine on the Apple 11" 

- "Programs remarkably easy to enter" 

- "Stimulating and Informative; So much so that this is the first computer magazine I've 
subscribed to! " 

- "Impressed with the quality and content." 

- "NIBBLE IS TERRIFIC!" 

In coming issues, look for: 

D Stocks and Commodities Charting D Assembly Language Programming Column 
D Pascal Programming Column D Data Base Programs for Home and Business 
D Personal Investment Analysis □ Electronic Secretary for Time Management 
n The GIZMO Business Simulation Game 

And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

Tpy a NIBBLE! 




Norfc 

^|f^( Class t)f Air Mail is required ror jl) APO. f-p{) and ail Inrei^n addresses 
wirh ihe lollosvini! addiltonal amounis 

Air Mail Postage Rates 12-14 02. x 8 
Europe $32.00 

Mexico and Centrai America $21.00 
South America $32.00 
MIddie East $35.00 



Africa: North $32.00 
Centrai $43.00 
South $43.00 

Far East, Australia $43.00 

Canada $18.00 
APO FPO $7.50 



nibble 



80x32."). Lincoln, MA, 0177.1 (617)259-9710 

I'll try nlUile! 

Enclosed is my $17.50 (for one year). 
(Outside U.S., see special rates on this page.) 

□ Check □ money opdep 

Your subscription will begin with the next issue publishea after 
receipt of your check/money order. 



Name 



Address_ 

City ^ 

State 
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SPACE WAR 

You're in command in SPACE WAR! Destroy your opponent's 
ship by forcing him to collide with the sun or to explode upon 
re-entry from hyperspace ... or challenge him to fight face to 
face with missile fire. You're in command of the speed and 
direction of your ship. You control the timing of your missiles. 
You select the game mode from five options, including 
Reverse Gravity, and the battle begins . . Accelerate to place 
your shots — and escape into hyperspace before your 
opponent comes within range. But be wary, he (or she!) may 
circle out of sight and reappear on the opposite side of the 
galaxy! (This is the classic MIT game redesigned especially for 
the Apple.) 



FROM 



seRsal;ioRaI 
softwape 




SUPER INVASION 

SUPER INVASION is the original invasion game, with the 
original moon creatures and faster action than any other 
invasion game. Features superb high resolution graphics, nail- 
biting tension and hilarious antics by the moon creatures! Self- 
running "attract mode" of operation for easy learning and 

demonstration of the game. As good in every way as the famous Invaders arcade game. High speed action! 
Sound effects! Runs on the Apple II and the Apple II Plus. 

Super Invasion Only 

32K, Apple II, Cassette $19.95 

Space War and Super Invasion Combined 

48K, Apple II, Disk $29.95 

AIR TRAFFIC CONTROLLER 

In AIR TRAFFIC CONTROLLER you assume responsibility for the safe flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude. During your shift as a controller in charge of this airspace, 26 aircraft 
become active and under your control. )ets and prop planes have to be guided to and from the two airports, 
navigational beacons and ten entry/exit fixes. The aircraft enter the controller's airspace at various altitudes 
and headings whether or not you are ready. 

16K, Apple II and Apple II + Cassette $11.95 

16K, S-80, Cassette $11.95 




TS€:IHP)RDSID€ 

6 South St..Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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KRAZY TALK 



by David Gash 

"Krazy Talk" is an S-80 game re- 
quiring 16K of memory. 

With all the emphasis on "order" 
and "logic" in today's world 
(especially within the computer 
field), we sometimes tend to forget 
just how much fun plain old silliness 
can be! With that thought in mind, 
let's leave the realm of most com- 
puter games which require a) skill, b) 
endurance, or even worse, c) actual 
thought, and take a look at a new 
game which requires d) none of the 
above (only a slightly warped sense of 
humor) — "Krazy Talk"! 

"Krazy Talk" is a friendly com- 
petition between two players, using a 
S-80 16K Level II (or up) as playing 
surface and scorekeeper. Given a ran- 
dom sampling of 20 words chosen 
from nouns, verbs, articles, etc., the 
players try to use as many words as 
they can to form interconnecting 
sentences, crossword-style, by mov- 
ing the words around on the screen, 
within a given time limit. Most of the 
words refer to parts of the body (such 
as knees, teeth, etc.), while most of 
the verbs supplied seem rather odd 
when used with the rest of the words. 
So, usually, very few of the sentences 
make much real sense, but therein lies 
the most enjoyable part of the game: 
depending on how the players con- 
struct their sentences, the outcome 
can range from mildly hilarious to 
downright ridiculous! (There is even 
a "BLANK", which may be used as 
any word the player wishes!) 

The program has a number of 
especially entertaining and useful 
features, such as visually interesting 
displays which operate even during 
internal operations. This means the 
player never has to sit through a 
blank screen while the computer does 
something known only to itself — 
there is always some kind of screen 
activity. There is, of course, a built-in 
rules/instructions routine, available 
at the players' discretion. 

The program keeps track of each 
player and uses his or her name 
throughout the game, which may be 
played on any of three levels — the 
higher the level, the less time is 
allotted. 

During each player's turn, the pro- 
gram maintains an accurate, 
constantly-running clock timer which 
74 



ticks off the seconds remaining to the 
player. This timer runs even between 
keystrokes of the same move, but 
does NOT require an expansion 
interface. 

The program makes extensive use 
of the keyboard strobe (INKEY$), 
thereby eliminating the need to press 
ENTER to register a move, when 
split seconds count. ENTER is used 
only to end a turn early or to ter- 
minate a series of unused words at 
game's end. This feature allows 
automatic error trapping — the pro- 
gram catches and disallows any at- 
tempt to move a word from an empty 
position or to an occupied one. When 
a vaUd move is made, the word im- 
mediately jumps to its new position, 
and the program is ready for another 
move. 

When a player's time runs out (or 
if he feels he can't use any more 
words and ends his turn early), he 
must tell the program the positions of 
any unused words. The program then 
automatically calculates the player's 
score, displays it, and prepares the 
other player's grid. The player 
receives five points for each word 
used once, 10 points for each word 
used twice (in two directions), and 
loses three points for each unused 
word. 

When both players have completed 
their turns, the program displays the 
scores and an appropriate remark, 
and of course, there is an option to 
play again. 

The word grid is different every 
time the game is played — the 
sentence combinations possible from 
each random set of words are 
endless; this eliminates the rapid 
onset of boredom so common with 
computer games after they have been 
played awhile. 

These are the main features of the 



game — please give it a workout. I 
believe you will find it funny and en- 
joyable; but don't be sensible or 
logical — remember, KRAZY is the 
name of the game! 

INTEGER VARIABLES: 

A,B/C,D/X,Y: Subscripts for word 

positions in array WD$. 

L: Counter in timing loop. 

I: Counter in graphics print loop. 

M: Minutes to play (set by playing 

level). 

PI, P2: Players' scores. 

PA: Array containing "PRINT AT" 

positions for each word. 

PL: Playing level. 

PN: Current player number (1 or 2). 

Q: Random print position (1 - 1023). 

R: Random word from group just 

read (1 - 6). 

S: Seconds left to play. 

SI: Score for words used once. 

S2: Score for words used twice. 

S3: Score for unused words 

(negative). 

T: Temporary counter used in 

various loops. 

TS: Total score for current player (SI 

-I- S2 - S3). 

WU: Counter for words used once. 

WD: Counter for words used twice. 

UN; Counter for unused words. 

STRING VARIABLES 

C$; One character picked up from 

keyboard via "INKEY$". 

Dl$, D2$: Players' names in order of 

final scores. 

P$(l), P$(2): Players' names as input 

at start of game. 

PN$: Current player's name. 

W$: Array to hold each group of six 

words as read in. 

WD$: Array to hold and manipulate 

word grid as shown on screen. 



Initialization and 


introductory display. 




100 ' "KRAZy TALK" 


SENTENCE BUILDINS 6AHE 




110 ' COPYRIGHT (C) 


1981 : 


CREATIVE MICRO SYSTEMS I 


120 ' 




1820 S. NAIN, SUITE F | 


130 ' 




BROKEN ARROW, OK. 


74012 


MO ' 




918 / 258 - 3442 




150 CLEAR 1000 








m DIN K$(6I, HDt(13, 8), 


PA(12, 7) 




170 CLS 








180 FOR 2=1 TO 3 








190 RESTORE 








200 FOR KM TO 20 
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210 FOR Y=l TO i 


700 FOR A=I TO 12 


229 READ KKV) 


710 FOR B=l TO 7 


230 NEXT Y 


720 NOKA, B)'"" 


UO PRINT ) RMD(1023), Ht( RMD(6))' 'j 


730 PA(A, B)=0 


250 NEIT X 


740 NEXT B 


240 MEXT Z 


750 NEXT A 


270 BOSUB 290 


760 RESTORE 


280 GOTO SIO 


770 FOR X=l TO 20 




780 FOR Y-1 TO 6 


Subroutine to draH a frate around the screen. 


790 READ N$(Y) 




800 NEXT Y 


290 PRINT } 0, CHR»(19I)CHR$(143)STRIIJB»(60, 131)CHR»(143)STRING 


810 R=INT(RND(36)/6) 


»(2, 191), 


820 IF lt>:0 TKEN R=l 


300 FOR 1=127 TO 959 STEP 64 


830 CLS 


310 PRINT } I, STRINS«(2, 191)j 


840 Q=RND(1023) 


320 NEXT I 


S50 PRINT a G, N(( RND(6)); 


330 PRINT CHR$U88)STRINS((&0, 17&)CHR((188); 


840 FOR T=l TO 10 


340 POKE U383, 191 


870 NEXT T 


350 RETURN 


880 PRINT a Q," "; 




890 A=RND(12) 


DrM title box tnd display the title. 


900 B=RN0(7) 




910 IF W)$IA) B)<>" THEN 890 


3W PRINT t 391, CHR»(I91)STRINM(47, 131)CHR«(191)| 


920 NDtIA, B)=H((R) 


370 PRINT f 455, CHRt(191)" BREETINSS! TNIS IS THE GftHE OF 'KHAl 


930 NEXT X 


Y TALK'!! ■ CHRI(191)i 


940 PRINT a 470,"G0T IT! HERE HE GO!" 


380 PRINT } 519, CHRt(I91l' MOULD YOU LIKE TO SEE THE INSTRUCTIO 


950 P=121 


NS? (Y/NI ■ CHR«(191)| 


960 FOK A'l TO 12 


390 PRINT a 583, CHR$(143)STRIN6$(47, 140)CH8«(143)i 


970 FOR B=l Tfl 7 


400 Ct^INKEYJ 


910 PA(A, B)=P+(M9) 


410 IF «=■" ORiCtO'Y' AND C$<>"N")THE»I 400 


990 PRINT a 470, CHR»t30); 


420 IF C»='Y" THEN 60SUB 2260 


1»00 NEXT B 




1010 P^P+64 


Input the players' naies and the playing level. 


1020 PRINT a 470, "GOT IT! HERE ME GO!"; 




1030 NEXT A 


430 CLS 


Words for setting up the playing grid. 


440 60SUB 290 




450 PRINT } 82,"«l«l KRAZY TALK! Uttf; 


1040 DATA CHEN, STEAL, TICKLE, SNIFF, HURT, BLANK, GLUE, GROW, B 


460 PRINT } 330, "i 


ITE, GIVE, CHOKE, CHASE, SEE, HAKE, HEAR, LOSE, CHANGE, CHOOSE, 


470 INPUT'ilHAT IS THE NANE OF PLAYER # l"iP$(l) 


PLAY, GUESS, REHOVE, FIGHT, HASH, FLY, RACE, PAINT, BLANK 


480 PRINT } 383, STRIN6$(2, 191); 


1050 DATA THE, THAT, ANY, THIS, NHICH, OUR, HIS, HY, THEIR, YOUR 


490 PRINT a 447, CHR«(191); 


, BLANK, A, THAT, THE, MY, THEIR, YOUR, HIS, HER, A, ANY, SOHE, 


500 PRINT } 394,") 


MANY 


510 INPUT'HHAT IS THE NANE OF PLAYER 1 2";P«(2) 


1060 DATA AT, DOWN, OUT, FOR, NITH, INTO, IN, ON, UP. OFF, TO, F 


520 PRINT } 448, CHRt(191); 


ROH, UNDER 


530 PRINT } 511, CHR»(191)CHR$(191); 


1070 DATA YOU, HE, SHE, NE, I, THEY, NE, IT, US, THEN. HER, HIH, 


540 PRINT 3 525, -PLEASE SELECT YOUR PLAYING LEVEL"; 


YOU, HE, HE, HER, NE, BLANK 


550 PRINT a 582, '(THE HIGHER THE LEVEL, THE LESS TINE YOU'LL HAV 


1080 DATA HARPED, KNOBBY, CRAZY, GREEN, GOOFY, HAIRY, SPOT, BROK 


E)"j 


EN, PICKLED, ITCHY, FAST, BLANK, BIG, SLON, DUHB, NEIRD, FUNNY, F 


560 PRINT a 660,M. SLIGHTLY KRAZY"; 


URRY 


570 PRINT a 724, "2. DEFINITELY KRAZY"; 


1090 DATA TEETH, NOSE, TOE, NAIL, HAIR, HEAD, EYE, EAR, NECK. CH 


580 PRINT a 788, "3. TOTALLY KRAZY"; 


IN, ARN, BLANK, BODY, TUNHY, LEG, FEET, FINGER, HRIST, KNEE, SON 


590 PRINT a 919,"— > <— "; 


E, EL60N 


600 C»=INKEYt 




610 IF «="" OR C$<"1" OR C$>"3" THEN 600 


Display the playing grid on the screen. 


620 PRINT a 924, C»; 




630 FOR X=i TO 500 


1100 PRINT a 25, PN$"S TURN"; 


640 NEXT X 


1110 PRINT a 63,""; 


650 IF Ct="l" THEN PL=5 ELSE IF C»='2' THEN PL=4 ELSE PL=3 


1120 FOR X=l TO 7 




1130 PRINT" ■ X" ■; 


Beginning oi the tain gaie loop. 


1140 NEXT X 




1150 PRINT CHR$(13); 


660 FOR PN=I TO 2 


1160 FOR X=l TO 12 


670 CLS 


1170 PRINT CHR«(64+X)CHRt(94)STRING$(60," ")CHR((93)CHR$(64+X); 


680 PN$=P»tPN) 


1180 NEXT X 




1190 FOR X=l TO 7 


Choose randoi Mords for the playing grid. 


1200 PRINT" ■ X" "; 




1210 NEXT X 


690 PRINT a 455, "STAND BY, " PN«" -- I'H SETTING UP YOUR GRID... 


1220 PRINT" FROH: TO: iPREBS 'ENTER' TO END)"; 


f 


1230 PRINT a 1010, "TINE: "; eontinued on next page 
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continued from previous page 

1240 FOR fl=l TG 12 

1250 FOR B=l TO 7 

1260 PRINT i PA(ft, B), WD$(A, B); 

1270 NEXT B 

1280 NEXT A 

Player PN's turn to play, by rearranging the words on his grid. 

1290 N=PL 

1300 S=0 

1310 C=0 

1320 PRINT J 1015, K":" S; 

1330 FOR T=I TO 4 

1340 Ct^mEYi 

1350 IF C»<>" THEN IF ASC(C$)=13 THEN 1590 ELSE 1430 

1360 C=C+1 

1370 IF C<35 THEN 1340 

1380 C=0 

1390 S=S-1 

1400 IF S=-l THEN N=N-l! S=59:IF N=-l THEN 1590 

1410 PRINT ) I0I5, «":■ S; 

1420 SOTO 1340 

1430 IF T=l OR T=3 THEN IF flSC(C$)<65 OR ASC(C»)>7i THEN 1360 EL 

SE X=ASC(C$)-64;IF T=l THEN PRINT i 966, C»;: BOTO 1570 ELSE PRI 

NT 8 974, C»;: SOTO 1570 

1440 IF ASC(C»)<49 OR ASC(C$)>55 THEN 1360 

1450 Y=VAL(C$) 

1460 IF T=2 THEN PRINT ) 967, Ctj ELSE PRINT 3 975, C»j 

1470 IF T=2 THEN IF ND«(X, Y)="° THEN PRINT } 966,' "j: BOTO 13 

30 ELSE A=X: B=Y; PRINT ) 974, "j: GOTO 1570 

1480 IF mu, V)<>" THEN PRINT 9 974," ■;: T=3: BOTO 1340 

1490 C=X 

1500 D=Y 

1510 NDKC, D)=IID«(A, B) 

1520 PRINT S PA(C, D), HD»(C, D); 

1530 «D»(ft, B) = " 

1540 PRINT 9 PA(fl, B),' "; 

1550 PRINT i 966," TO: "j 

1560 SOTO 1330 

1570 NEXT T 

1580 END'ERROR IF THIS IS REACHED 

Tiie is up; eliiinate all the Hords not yet used. 

1590 IF H=-I THEN PRINT } 1014, "S UP!!";: FOR X=l TO 2000: NEXT 
X 

1600 UU==0 
1610 DN^O 
1620 UN=0 

1630 PRINT i 960, CHR$ (30) "PLEASE TYPE IN ANY UNUSED WORD'S POSI 
TION CENTER' TO END): "; 
1640 FOR T=l TO 2 
1650 C»=INKEY$ 
1660 IF «='• THEN 1650 
1670 IF C«=:CHR$(13)THEN 1780 

1680 IF T=l THEN IF ASC(C$)<65 OR ASC(C$)>76 THEN 1650 ELSE X=flS 
C(C«)-64: PRINT «;: SOTO 1760 
1690 IF ASCiC»)<49 OR ASC(C»)>55 THEN 1650 
1700 Y=VAL(C») 
1710 PRINT C$; 

1720 IF NDt(X, Y)="" THEN 1630 
1730 llDt(X, Y) = "" 
1740 PRINT ) PA(X, Y)," '; 
1750 UN=UN+1 
1760 NEXT T 
1770 SOTO 1630 

Calculate the player's score. 



1780 PRINT i 960, CHR<(30)TAB(5)"STAND BY, " PN$" -- I AN CALCUL 

ATING YOUR SCORE..."; 

1790 FOR A=l TO 12 

1800 FOR 8=1 TO 7 

1810 IF HD»(A, B)="" OR HD«tA, B)="BLANK" THEN 1850 

1820 IF ND»(A, B)<>" THEN HU=MU+1 ELSE 1850 

1830 IF HD<(A-1, B)<>" AND(ND«(A, B+DO"" OR HD$(A, B-U<>"'1T 

HEN DH=DW+1: SOTO 1850 

1B40 IF HD»(A+1, B)<>"" ANDIHDKA, B-l)<>"" OR MD<(A, B+1)<>"")T 

HEN DH=DHM 

1850 NEXT B 

1860 NEXT A 

1870 S2=Dllt5 

1880 Sl^MUtS 

1890 S3=UN«3 

1900 TS=S1+S2-S3 

1910 IF PN=1 THEN P1=TS ELSE P2=TS 

1920 PRINT i 960, CHR<(30)TAB(15)PN«", YOUR TOTAL SCORE IS:" TS; 

1930 FOR X=l TO 2000 

1940 NEXT X 

1950 S1=0 

1960 S2=0 

1970 S3=0 

1980 «U=0 

1990 Dll=0 

2000 UN=0 

2010 TS=0 

2020 NEXT PM 

End oi the gaie. 

2030 CLS 

2040 PRINT 3 192, TAB{15)"THE SANE IS OVER! THE SCORES ARE:" 

2050 PRINT 

2060 PRINT TAB(25)P$(1)":" PI 

2070 PRINT TAB(25)P$(2)":' P2 

2080 IF P1>P2 THEN DU=P$(1): D2$=P»(2) ELSE IF PKP2 THEN D1»=P 

$(2): D2$=P$(1) ELSE 2130 

2090 PRINT 

2100 PRINT TAB( 12) "LOOKS LIKE " DU" IS KRAZIER THAN " D2»"!!!' 

2110 PRINT 

2120 GOTO 2160 

2130 PRINT 

2140 PRINT TAB(12) "LOOKS LIKE YOU TMO ARE EQUALLY KRAZY!!!" 

2150 PRINT 

2160 PRINT TAB! 12) "DO YOU KANT TO PLAY ANOTHER SANE? (Y/N)"j 

2170 GOSUB 290 

2180 CJ=INKEY« 

2190 IF C$="" OR(M<>"Y" AND C»<>"N")THEN 2180 

2200 IF Ct='Y" THEN RUN 

2210 PRINT 8 776, "THANKS FOR BEIN6 SO KRAZY - SEE YOU HEXT TIKE 

r ■■ 

2220 FOR X=l TO 1500 
2230 NEXT X 
2240 CLS 
2250 END 

Subroutine to print the instructions. 

2260 CLS 

2270 PRINT 3 84, "m« KRAZY TALK! ttltr 

2280 PRINT 

2290 PRINT' THE OBJECT OF THIS SANE IS TO MAKE AS HftNY COHPL 

ETE" 

2300 PR I NT "SENTENCES AS YOU CAN FROH THE NORDS YOU ARE 6IVEN IN 

THE BRIEF" 

2310 PRINT"TINE ALLOTTED (THREE TO FIVE MINUTES, DEPENDING ON YO 

OR LEVEL" 
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2320 PRINT'OF EXPERIENCE NITH NONSENSICAL LANGUAGE!)." 

2330 PRINT" YOU ARE GIVEN A TOTAL OF TWENTY HORDS TO NORK HI 

TH," 

2340 PRINT'CHOSEN AT RANDOM FROM NY 'DICTIONARY OF KRftZY KORDS'. 

THEY ARE" 
2350 PRINT'PRESENTED ON A 12-BY-7 GRID, AND YOU CAN HOVE A WORD 
ANYilHERE" 

2360 PRINT'YOU NISH ON THE GRID BY USING THE LETTER-NUMBER CONBI 
NATION" 

2370 PRINT"OF THE tIDRD ITSELF AND THE SPACE YOU NISH TO HOVE IT 
TO." 

2380 PRINT" (YOU DON'T HAVE TO PRESS 'ENTER' -- JUST PRESS THE RI 
GHT KEYS.)" 
2390 PRINT 
2400 PRINT'SPECIFIC RULES ARE ON THE NEXT PAGEj PRESS ANY KEY TO 

CONTINUE." 
2410 IF INKEY* ="" THEN 2410 
2420 CLS 

2430 PRINT TAB(20)"tt«t RULES UttV 
2440 PRINT 

2450 PRINT" 1. NHILE THE SENTENCES DON'T NECESSARILY HAVE TO BE R 
EALISTIC," 

2460 PRINT" THEY SHOULD BE GRAHHATICALLY CORRECT." 
2470 PRINT 

2480 PRINT"2. ALL SENTENCES NUST INTERCONNECT VERTICALLY AND HOR 
IZONTALLY," 

2490 PRINT" LIKE A CROSSWORD PUZZLE'S LETTERS." 
2500 PRINT 

2510 PRINT"3. THE HORD 'BLANK' HAY BE USED AS ANY WORD YOUR HARP 
ED LITTLE" 

2520 PRINT" HEART DESIRES; HOHEVER, IF IT IS USED IN TNO DIREC 
TIONS AT" 

2530 PRINT" ONCE, IT NUST BE USED AS THE SANE HORD DOTH NAYS." 
2540 PRINT 

2550 PRINT"4. YOU NAY CHANGE VERB TENSES, OR ADD ENDINGS SUCH AS 
-LY',' 



' 1 v ■ 



2560 PRINT" '-S', '-EB' OR '-ING' TO HAKE YOUR SENTENCES READ 
CORRECTLY." 
2570 PRINT 

2580 PRINT-EXPLANATION OF SCORING IS ON NEXT PAGE; PRESS ANY KEY 
TO GO ON.'i 

2590 IF INKEYt ="" THEN 2590 
2600 CLS 

2610 PRINT J 128, TAB(20)"«m SCORING >«»»" 
2620 PRINT 

2630 PRINT" YOUR TURN IS OVER WHEN YOUR TINE RUNS OUT. IF YO 
U ARE" 

2640 PRINT"FINISHES EARLY, PRESS 'ENTER' FOR ANY 'FROH' OR 'TO' 
POSITION." 

2650 PRINT" I KILL THEN ASK Y8U TO TELL NE THE LOCATIONS OF ANY H 
ORDS" 

2660 PRINT"YOU COULDN'T USE. NHEN YOU HAVE BONE THAT, I'LL FI6UR 
E YOUR" 

2670 PRINT'SCORE FOR Y8U. YOU SET 5 POINTS FOR EACH HORD USED ON 
CE, 10" 

2680 PRINT'POINTS FSR EACH N0R6 USED TWICE, AND YOU LOSE 3 POINT 
S FOR' 

2690 PRINT'EACH HSM TSU CQULBN'T USE. THE WORD 'BLANK' ISN'T NO 
RTH" 
2700 PRINT"ANY POMITS TBWARD YOUR TOTAL SCORE." 

2710 PRINT 

2720 PRINT" THAT'S •BOUT IT - PRESS ANY KEY TO BEGIN THE 6A 

NE!" 

2730 IF INKEYt ■=" THEN 2730 

2740 RETURN Q 



and other undesirables 

The following line should be substituted for 
Line 10 in the S-80 program "Dominoes" publish- 
ed in the April SoftSide. 

10 CLEAR1000:RANDOI1:GT=100!G=140:P=15360:OII1fl$(28),D(20),P$(20), 
T${20),P1$(20) 



The following lines should be substituted for 
Lines 900 and 950 in the S-80 program "Kid- 
napped" published in the December, 1980 Soft- 
Side. 

900 IF DiB)=llTHENIFA=19ANDt$="KEY"ANDIi21)=nHENH$(5b)="CRUDE K 

EY":H$(56)=A$(56):A(56)=19:GGTQ4900 ELSEIFE$="0VE"ANDfl=37THENPRI 

NT'YOU "fi$"WITH TKE"LEFT*iAti35),16)"S":GQT01050 

950 IF D(B)=13TKENIFI(25)=IiFI(24i=10Ri(24i=fiORI{241=OANDfi(241=A 

IFE1="00N"K3=25:R$='LARGE INFLATED BALLOON":GOSUBI100:H$(25)=R$i 

B0=l!S0TQ4900 

The Apple version of "Miner" (January, 1981) 
has a bug in line 480. It should be replaced by the 
following lines: 



480 IF NOT (X > 240 AND S = EP) THEN 490 
482 GOSUB 830: IF Y > 32 THEN 650 
484 SOTO 230 




BLANK CASSETTES 



W 
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Premium quality digital recording tapes. These 
5-screw cassettes come packaged in boxes of 10. 
They are offered In 10 and 20 minute lengths. 

C-10 #15-C10 $6.95 

C-20 #15-C20 $7.95 
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REVIEWS 



LORDS OF KARMA 

from Avalon Hill 

"Lords of Karma" represents a 
new venture on the part of the 
venerable Avalon Hill Game Com- 
pany. Although they have produced 
microcomputer games before, such 
as "Nukewar", "B-1 Nuclear 
Bomber", "Planet Miners", and 
"North Atlantic Convoy Raiders"; 
this time they have tackled a new 
genre: Adventure. It seems fitting 
that they should do so; their 
microcomputer games division is 
following the same pattern that the 
games division has established over 
the years — wargames and then a 
stab at fantasy games. 

Avalon Hill virtually defined the 
art of wargaming, going into business 
in 1958 with the release of "Get- 
tysburg" and "Tactics 11". They 
pioneered the use of hexagonal pat- 
terns on game boards, and began 
publishing The General, a magazine 
devoted to wargaming and military 
history. In 1974, when TSR Games 
came out with "Dungeons and 
Dragons", a new type of game rose 
to popularity — the Fantasy Role- 
Playing Game (FRP). 

While closely related to wargam- 
ing, FRPs differ in two respects: 
theme and execution. Most FRPs are 
set either in a world rife with magic 
and totally lacking in machine 
technology, or in the far future where 
technology and magic are virtually 
indistinguishable. In either case, they 
lack the historical accuracy that is 
demanded in and that defines 
wargames. Furthermore, in execution 
FRPs differ from wargames in that 
they are open-ended, i.e., there is no 
definite end to the game. An FRP can 
go on for months or even years with 
the same cast of characters who grow 
in power and ability. In FRPs the 
goal is survival, not victory. 

There have been attempts to cap- 
ture FRP games on microcomputers, 
principally in two forms: The 
graphics form pioneered by 
Automated Simulations ("Temple of 
Apshai", "Hellfire Warrior"), and 
the Adventure (Scott Adams' work, 
"Zork", "Original Adventure"). 
Neither approach truly captures the 
spirit of FRPs; each method has its 
advantages and disadvantages. The 
graphics or Apshai approach centers 
almost exlusively around combat and 
78 




survival, with little or no cereberal ef- 
fort required on the part of the 
player. "Adventure", on the other 
hand, is far more mentally taxing, re- 
quiring the player to figure his way 
out of various predicaments and 
puzzles, but is visually quite dull. 

With "Lords of Karma", Avalon 
Hill has tackled a fantasy theme for 
microcomputer games, using the 
Adventure form to do so. The result 
is a good Adventure, but a disap- 
pointment to those who expected 
more creativity and ingenuity from 
the country's premier adult games 
company. "Lords of Karma" is a 
high level Adventure, on a par with 
"Zork" or Scott Adams' work. The 
flavor of the program is fantasy with 
all the trappings... there are goblins 
with axes, slimy worms and giant 
spiders racing about on sticky webs. 
There is a princess who has been kid- 
napped by a scury varlet, and her 
father the king who wants her back. 
There are mazes and swamps, sewers 
and caverns... in short, just about 
anything you could want short of 
lakes of molten lava! 

The twist, if you care to call it that, 
is that this Adventure is for the do- 
gooders of the world, the Paladins, 
the embodiments of the chivalric 
code. The whole point of the Adven- 
ture is to do good deeds. By so doing, 
you ensure yourself of a place in 
heaven, via the AH Express. The way 
that all this is carried out is in the 
scoring system — the more good that 
you do, the more "karma points" 
you accumulate — an ironic "west- 
ernization" of the concept of karma. 
There are all sorts of ways to get kar- 
ma points — you can slay monsters, 
rescue the princess, donate to the 
charity of your choice. . . I wouldn't be 
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surprised if there was even a little old 
lady to escort across a busy street. If 
you prefer activities of the evil per- 
suasion, then be prepared to evaluate 
your performance on a negative 
scale, for you will get -X karma 
points if you're nasty. 

Winning the game is quite simple: 
When you reach a certain total of 
karma points (over 200) you will be 
elevated to heaven upon performance 
of certain acts. Should you get killed 
in your wanderings, don't despair, 
you will be promptly resurrected on a 
mountain top, empty-handed, of 
course. But the karma points ac- 
cumulated in all previous incarna- 
tions during the playing of the game 
will still be there. Should your karma 
point total be in the negative range, 
be prepared to burn in purgatory 
prior to rebirth. If anything, this 
might be the principal failing of 
"Lords of Karma": You are always 
reborn. Thus, if you have the pa- 
tience to keep plugging away, you 
can win in a single sitting. There is 
really no challenge to winning, 
then... just patience. Conceivably you 
could win by repeating a single action 
enough times, merely shuffling back 
and forth between the mountain peak 
and the chapel. But then all you har- 
dy Adventures would never stoop to 
that, would you? 

There are no major differences be- 
tween this Adventure and the vast 
majority of others as far as execution 
is concerned. Simple two-word com- 
mands are entered for actions. There 
is not the elaborate pedagogy of 
"Zork", although there is one option 
that is appearing more and more fre- 
quently in Adventures — you can 
GET or DROP more than one object 
at a time by specifying ALL. One 
drawback is that upon arriving at a 
new location you must specify an ex- 
amination, otherwise you get only the 
most cursory description of the scene 
and no mention of possible exits. 

All in all, "Lords of Karma" is a 
good Adventure. There are plenty of 
locations and a fairly wide variety of 
situations to face. The program is 
done in Machine Language and ex- 
ecutes quickly. It is well-written and 
thematically consistent, and does not 
require any sort of esoteric 
knowledge on the part of the user. If 
you enjoy this type of computer 
game, then I would recommend 
"Lords of Karma"; it is really quite 



enjoyable. However, if you are ex- 
pecting more thian a simple Adven- 
ture, then you may be disappointed. 
Avalon Hill has not broken any new 
ground, they have only covered 
known territory well. 

Dave Albert 



POKER TOURNAMENT 

from Adventure International 

There you sit, an icebox full of 
beer and scads of munchies, two 
brand new decks of Bicycle playing 
cards and enough chips to rebuild 
Reno... and the phone rings. You 
answer it and suddenly the vision of 
five-handed poker rears its head. 
Three more quick phone calls and 
you begin to wonder how two- 
handed poker would work. One more 
phone call and you resign yourself to 
an evening of watching "Love Boat" 
reruns. 

If this scenario sounds vaguely 
familiar, then perhaps it's time to 
consider a poker alternative: "Poker 
Tournament" from the folks at 
Adventure International. For one, 
you never have to worry about no 
shows, and besides, "Slim", "Tex", 
"Bart", "Doc", and "The Kid" 
don't drink very much and they eat 
even less! 

Slim and the boys are your taciturn 
companions for an evening of $20- 
ante five-card draw poker. I say 
"taciturn" because Slim et al. don't 
have a lot to say... mostly they just 
curse their bad hands or say they'll 
see yours. Nevertheless, they are not 
bad playing buddies. For one, they 
never cheat, and they're terrible 
bluffers. 

If one of the boys loses his shirt 
and all of his chips, he leaves the 
table and goes home, wherever that 
may be. (My theory is Redondo 
Beach, Calif., but that's only MY 
theory.) The table is then redrawn 
with one less player. The game con- 
tinues until all but one player has 
been eliminated; that remaining 
player being then named champion 
with all due hoopla. 

The only drawback to playing with 
these electronic fellows is that they 
only know how to play five card 
draw... one misses the bizarre varia- 
tions of stud poker advocated by 
more human opponents. No wild 
cards, no high-low, no Cincin- 
natti...nor do you get to take your 
winnings home, but then you don't 
drop a bundle either, so all in all the 
exchange seems fair. Certainly 



"Poker Tournament" is a game for 
purists. 

John Warshawer, the author of 
"Poker Tournament" has done a 
good job. He has chosen the Old 
West saloon for his thematic 
backdrop, as demonstrated by the 
names of the participants and their 




vocabulary. The graphics display, 
while not on a level with programs 
like "Olympic Decathlon", is 
nonetheless quite adequate. Your 
cards are displayed numerically, 
while the table is drawn with the 
names of the surviving players in 
their respective chairs. The deal 
rotates around the table, as it should, 
and the betting protocol is correct. 

All in all, a tidy little package that 
delivers just what it promises, and 
that isn't anything to complain 
about. 

Dave Albert 



THRILOGY OF GAMES 

from On-Line Systems 

This "Thrilogy" of games by War- 
ren Schwader includes two versions 
of popular arcade games and an 
original, and quite cute, archery 
game based on the William Tell 
legend. The games are written in In- 
teger BASIC and Assembly 
Language and are all done with Hi- 
Res graphics. The games are: 

1) "Smash Up" which is the peren- 
nial favorite "Collision" (or "Head 
On" or "Dodge" or whatever) in 
which you must race around a set of 
concentric squares, picking up dots 
worth a certain point value each, 
while the computer has a car going 
around in the opposite direction, in- 
tent on mayhem, destruction, and 
such. Your car can go faster than the 
computer's, but the computer car is 
quite astute and will make last- 
second lane changes in the pursuit of 
auto-destruction (pun intended). 
There are four skill levels in this 
game, ranging from "beginner" to 
"so you think you're good?" Oh yes, 
picking up all the dots results in a 
bonus condition giving you more 
points for additional dots, and add- 
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ing a car to your beginning allowance 
of five. 

2) "Bustout" is another video 
favorite, a.k.a "Breakout", "Little 
Brickout", "Ricochet", etc. It's 
solitaire ping-pong, trying to break 
through a wall of bricks by keeping a 
ball going with a paddle on the 
screen. The beginner's version has 
part of the ball escape area sealed 
off, so it's easier to keep the ball on 
the screen, punching out those 
bricks. 

3) "William Tell" is my favorite 
program of the three, although as a 
game it is readily mastered and then 
becomes somewhat dull. The gist of it 
is that you are William Tell, with five 
arrows to shoot. Your targets are 
three apples, two of which are on a 
tree and the third, (which you must 
hit three times for a perfect score) 
rests atop the head of your son, who 
is leaning against the aforementioned 
tree, contemplating the state of pin- 
cushionhood, I'm sure. You control 
your shooting by virtue of deciding 
how far back to pull the bowstring, 
and when to release the arrow. 




Should you miss the apples in the 
tree, the little wiseacre leaning 
against it will question your 
marksmanship and competency quite 
readily, greatly increasing the temp- 
tation to "misjudge" and put an ar- 
row into him, son or no. All in all, 
this is a nice little program, well- 
conceived and executed. The only 
drawback, as I mentioned before, is 
that there is not enough challenge in 
it to hold the player's interest for very 
long. 

"Thrilogy" is on the whole a nice 
package, although there is nothing 
new or exciting in it. If you don't 
already own other versions of the 
games included in it, it is worth the 
price, as the games run well and are 
bug-free. 

Dave Albert 

MICRO-PAINTER 

from DataSoft, Inc. 

If you don't have a color TV or 
monitor hooked up to your Apple, 

continued on next page 
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Inventory 'S' is an exciting advance 
in small business software for the 
TRS-80"' Its in-memory system of data 
storage solves the problems of both 
sequential and random access files, 
while providing extremely fast, ran- 
dom access to any record. Other ad- 
vantages include the ability to use 
any combination of characters for 
stock number; an exceptionally flexi- 
ble record format (field names are 
user definable); and the ability to 
store data to tape or disk and upgrade 
at any time. Up to 150 items can be 
stored per 16K of available memory, 
with stock number, description, cost, 
vendor, reorder, and profit data in 
each record. Use your present stock 
numbers (a sort function is included), 
unlike competing systems which 
force you to use a different "record 
number". User-definable screen and 
printer reports let you see just the 
data you need, when you need it. 

Inventory 'S' can be used effective- 
ly with a 16K tape based system or a 
48K disk and printer system. 
S-8016K Tape Level II #26-ivst. . $24.95 

S-80 32K Disk #26-ivsd $39.95 

With INVOICING on Disk 

tt26-ivsi $59.95 
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continued from previous page 

forget about "Micro-Painter". But if 
you DO have color, you really ought 
to have this superb high-resolution 
graphics program. It's not actually a 
sketching or drawing program, but 
one which makes you feel like an ar- 
tist as you paint or color in a 
previously-created line drawing. This 
you do by moving a cursor around 
the screen on the displayed picture, 
and filling in with your choice of col- 
ors. Rather like those paint-by- 
number kits, but without the 
numbers (or the messy paints!). 

"Micro-Painter" is subtitled "An 
Electronic Coloring Book". That's 
an apt description, since the disk in- 
cludes nine finely detailed, full screen 
Hi-Res pictures all ready for your ar- 
tistic coloring-in. These range from 
still lifes and nature scenes to por- 
traits of the distinguished Einstein 
and the heroic Micro-Man. You can 
also draw your own, using the simple 
30-line Micro-Draw program listed in 
the documentation. (Why this wasn't 
put on the disk is something of a 
mystery to me.) For that matter, you 
can create a Hi-Res line drawing us- 
ing ANY program or method that 
you choose, and then use "Micro- 
Painter" to color it in. In addition to 
a "Negative" command which 
transforms a white-line drawing into 
a black-line drawing (and reverses all 
other colors as well), there's a special 
"Fix It Up" command which helps 
prepare such drawings for painting. 

By using two-color mixes of 
Apple's six Hi-Res colors, the pro- 
gram is able to produce 21 distinct 
colors for your artistic use. Any of 
these can be defined with two 
keystrokes (such as "BG" for blue- 
green or "VV" for sohd violet), and 
then a press of the paddle button will 
fill in the part of the drawing in 



which the cursor is currently located. 
This is always an intriguing thing to 
watch, as the color spreads out in a 
diamond-shaped pattern to fill in 
every cranny up to a boundary line. 
The cursor is moved either with the 
two paddles or, for very precise step- 
by-step movements, with the I-J-K-M 
keys. 

One of the most fascinating 
features of "Micro-Painter" is its 
magnified viewing and painting 
mode. Pressing the space bar at any 
time instantly zooms you in to a 
roughly 10-X microscopic view of the 
immediate vicinity of the cursor. The 
cursor then stays in the center of the 
screen, and the paddles or keys move 
the picture left, right, up, or down. 
Each individual "dot" of the picture 
(displayed in this mode as a rec- 
tangle) can then be viewed and col- 
ored at will, instead of filling in 
whole areas at once. 

Other features allow saving and 
loading pictures at any stage of 
development, protection of black 
areas of the picture (normally the 
boundary lines) from being in- 
advertently colored over, and the 
ability to exercise DOS commands 
without having to exit the program. 

The documentation of all aspects 
of the program is excellent. The 
32-page booklet contains thorough, 
well-illustrated, and easy-to- 
understand instructions, plus print- 
outs of the nine pictures which are on 
the disk. You even get a nice colorful 
box, which contains not only the disk 
and booklet, but six crayons and a 
magnifying glass as well! Bob Bishop 
and DataSoft Inc. have put together 
a very attractive, entertaining, and 
useful graphics tool which gets my 
highest recommendation. 

Jon Voskuil'O 
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HARDWARE CORNER 



INVASION 



by Edward E. Umlor 



Well here it is time for the old 
GRANITE KNOGGIN to bend your 
eyeballs again. Where is everybody 
out there? I haven't received any mail 
at all. I know there are people with 
computers out there, but you would 
never know it by my mailbag. It was 
so lonely, that it ran off with a UPS 
bag, and didn't even leave a note for 
me. I would really like to be answer- 
ing specific questions in this column. 
It is the only way of knowing that I 
am really helping people solve their 
computing problems. 

Some people have been having 
problems with a modification called 
the CLOCK CONTROL BOARD. 
This is a modification that would 
help only those people with extremely 
long programs, or programs that re- 
quire many complex math formulas 
to run. The installation should be 
done by a competent technician as 
there are etches to cut and quite a few 
wires to be soldered in. 

The biggest problem seems to be 
broken wires. If the wires are not 
stripped properly, they are weak- 
ened and break very easily from any 
vibration. This can cause intermittent 
operation and a great deal of frustra- 
tion. The second problem in line is — 
installation by a person who does not 
know how to use the tools of the 
trade. This has caused several logic 
boards to be scrapped, because too 
many etches, etc., have been dam- 
aged. There comes a point when it is 
cheaper to replace the logic board 
than try to resurrect it. The third 
most popular problem is miswiring 
the modification. This can cause a 
cascade effect among the chips on the 
board as one pops.then another. This 
not only makes the control board 
useless, but can also render the logic 
board something less than desirable. 
These can all be very costly to cor- 
rect, and you will be without your 
system for some time. I would not 
recommend this speed-up mod unless 
you definitely need to increase the 
computer's operation by more than 
100% (double the present speed). 

The easiest and most reliable 
speed-up method I have heard of so 
far will result in a 100% increase 



(takes Vi the time to run the same 
program). This is done by replacing 
the RAM chips with 200 ns chips, 
replacing the Z-80 with a Z-80A, and 
replacing the crystal in the keyboard 
with one of double the frequency. 
Unsolder the present 10.6445 MHz 
crystal and solder in a 21.2890 MHz 
crystal. Remove the Z-80 and insert 
the Z-80A in the same socket (be 
careful of static electricity). The 
RAM memory chips are also in 
sockets and can be replaced very easi- 
ly (again watch out for static). I have 
heard of several people that have 
made this conversion with good 
results. 

This is for all you Atari owners 
that want to use the Epson MX-80 or 
other eight-bit word printer with the 
MACROTRONICS interface cable. 
This cable works very well with the 
MX-70 or other seven-bit word 
printers, but not with eight-bit word 
printers. DO NOT DESPAIR — 
ALL IS NOT LOST! There is a sim- 
ple fix that can be done to allow the 
MX-80 and others to work. Yes you 
will be giving up something on the 
MX-80. It is known as the block 
graphics (the upper end codes of the 
eight-bit word). 

The fix can be done without any 
soldering. The connector used is a 
self-stripping type and cuts through 
the insulation as you press the wire in 
place. Open the 36-pin connector 
housing to expose the wire contact 
area. If you look at the face of the 
36-pin connector you will be able to 
see the pin numbers. Cut a two inch 
piece of 26 guage (AWG) insulated 
sohd wire. Press one end into pin 9 
slot. Be sure to press it down fully in- 
to the slot. Press the other end into 
the slot exactly opposite pin 8. Check 
for continuity between the two pins 
and if everything is OK, reassemble 
the connector housing. 

What we have done is to ground bit 
8 on the connector. The MX-80 now 
considers the incoming word as the 
lower 128 ASCII codes. I am sure 
you tried the cable unmodified and 
found that the only thing it would 
print was graphics (the upper 128 
ASCII codes). I hope that this has 
been of help to you. 

Well, that's about all for now. Any 
questions... etc., please write to 
GRANITE KNOGGIN'. I kinda miss 
my mailbag. Q 



Now you can continue to 
play this popular arcade 
game even after you run 
out of quarters! Shoot 
down the invading aliens, 
but protect your guns from 
their bombs. 

Great sound and 
graphics. (Sound requires 
external amplifier.) 

S-80 16K Cassette #26-alin $9.95 

S-80 32K Disk #26ALID $1 4.95 



HI 
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THE SENSUOUS PROGRAMMER 



by "J" 

THE SECOND 

IN A SEEMINGLY ENDLESS 

SERIES OF COLUMNS 

Women whose husbands (or 
boyfriends) own computers are 
generally of the opinion that such 
silicon-infested plastic boxes are of 
the feminine gender. Why they 
should hold to this belief is 
something of a mystery to me. 
Unless perhaps they're thinking of 
the way in which said husbands 
sometimes caress their keyboards 
and coddle their minifloppies. Or 
maybe the occasional late-night 
rendezvous where man and 
machine exchange sweet nothings 
in a language that only they under- 
stand. Or, possibly, the continuous 
financial drain caused by the 
machine's unrelenting demands for 
soft things to ware, more and more 
exotic memories, and foreign 
language lessons. Still, these small 
things don't seem to justify the 
derogatory way in which some 
wives refer to their husband's com- 
puter as his "mistress". 

As I tried to convey last month, a 
computer program is nothing more 
or less than a set of instructions 
which tells how to solve a problem 
in a logical way. And the computer 
her . . .er, ITself is nothing more or 
less than the collection of circuits 
and switches and accessory devices 
which follows these problem- 
solving instructions. So what ra- 
tional reason is there to be jealous 
of such a piece of machinery? 

I guess the first part of the answer 
to that is another question: "Since 
when does jealousy have to be ra- 
tional?" And the second part of the 
answer is that certain kinds of prob- 
lems can be so much fun to solve, 
and be so altogether engrossing in 
terms of time and concentration 
(and sometimes money), that there 
may well be ample justification for 
feelings of jealousy. 

This ongoing column is written in 
the interest of communication — 
not only between human and 
machine, but between human and 
human. If you're a human interested 
in making your computer under- 
stand you better, you might find 
some helpful goodies here. If you're 
a human interested in understand- 
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ing a fellow-human who has a com- 
puter for a "mistress", you may get 
some insights along the way. If 
you're a computer interested in 
understanding your human better, 
and concerned with bug-free inter- 
facing with your fellow-machine, . . 
.er, maybe you'd be better off 
reading Byte. 

Communicating with computers 
used to be a tedious and highly- 
specialized process, involving much 
flipping of switches and constant 
watching of blinking hghts. You still 
CAN communicate with computers 
like that, and I guess some 
primitive. Neanderthal types still 
do. Cartoons still picture computers 
in that way — either that, or in the 
other extreme of communication 
through conversational, spoken 
English a la Star Trek, Buck Rogers, 
et al. But most civilized people in 
the real world of 1981 communicate 
with computers through Pidgin 
English languages which fall 
somewhere between switch-flipping 
and street slang. And most of us 
micro-minded people (did I say that 
right?) deal almost exclusively with 
BASIC — the Beginner's All-purpose 
Symbolic Instruction Code. (If you 
take offense at the word "beginner" 
in the above acronym, you may 
want to think of it as the Boolean 
Algorithmic Simulation for In- 
telligent Computerists.) 

Speaking of BASIC (ah, we finally 
get to the subject at hand) let's take 
a look at the ways in which this par- 
ticular language allows humans and 
computers to communicate with 
each other. Communication, of 
course, is a two-way street. And 
computer-oriented types invariably 
refer to the two sides of that street 
as input and output. Input is what 
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you tell the computer, and output is 
what the computer tells you. There 
are different layers of input and out- 
put going on inside the computer all 
the time, but the layer we're con- 
cerned with here is what takes place 
during the running of a BASIC pro- 
gram that has been entered into the 
computer's memory. There are 
several ways available to the pro- 
grammer to enable computer and 
human to interact, so let's take a 
look at some of them. This month 
we'll scrutinize input methods, and 
next month tackle output. 

BASIC'S most commonly used in- 
put instruction is INPUT (I wonder 
why they picked that word?). The 
statement 

INPUT A 
in a program causes the computer 
to do three things: (1) print a ques- 
tion mark and cursor on the screen, 
(2) wait — forever, if necessary — 
for someone to press RETURN or 
ENTER, and (3) store the number 
which was typed in before RETURN 
or ENTER in a memory location 
which it labels "A". INPUT itself 
doesn't do anything to the number 
except to store it; but from then on, 
it's available to any other part of the 
program that needs to use it. 

INPUT isn't limited to handling 
numbers; it can handle non-numbers 
such as "ABRACADABRA", "R2D2", 
AND "#%&?/*!" as well. The only 
thing is that you have to tell the 
computer whether to expect non- 
numbers as part of the input or not. 
If you don't, you will get an embar- 
rassing error message at best, or at 
worst cause the program to croak 
prematurely in its prime of life. Tell- 
ing the computer what kind of input 
to expect is as simple as using the 
right kind of variable name with the 
INPUT statement. Just add a dollar 
sign to the end of your variable 
name (e.g., A$), and you can type in 
all the non-numerical (or, for that 
matter, numerical) garbage your 
heart desires. 

Well, almost all. On most com- 
puters (Atari owners, please ignore), 
there are a few bits of garbage that 
an INPUT statement won't accept 
as characters in their own right. 
These are commas, colons, and 
leading quotation marks. When the 
computer finds either a comma or a 
colon in the string of characters that 



was typed in before ENTER/ 
RETURN, it acts just as though there 
were another ENTER/RETURN right 
there in the middle of the input 
string. So it takes the characters up 
to that point and stores them in its 
memory and labels that memory 
location A$ (or whatever) — and 
then it blatantly ignores all the rest 
of your wonderful garbage, and tells 
you so by printing an unsightly ' 'EX- 
TRA IGNORED" message on your 
screen. 

Now, you can take advantage of 
this peculiar treatment of commas 
and colons, if there happen to be 
several different things that you 
want to input all at the same time. If 
you want to have somebody type in 
his full name, and then store the 
first and last names in different 
locations, you can do so with a 
statement like 

INPUT L$, F$ 
where L$ will be the storage loca- 
tion for the last name and F$ for the 
first name. Then, if the user types in 

EINSTEIN, ALBERT 
and hits RETURN/ENTER, Al's first 
and last names will be filed away 
just where you want them and no 
sloppy error messages will clutter 
up the screen. You can do the same 
with number inputs, or even an 
assortment of number and string in- 
puts (e.g. INPUT A$, B$, X, Y) — as 
long as you know exactly how many 
inputs are expected, and don't try to 
input a string when a number is ex- 
pected. Typing in too FEW entries in 
such a case will not generate an er- 
ror message, but will clutter up the 
screen with another question mark 
or two as the computer prompts you 
for more input. Generally, multiple 
inputs clumped together like this 
are not a very good idea because of 
all the possibilities for confusion 
and errors on the part of the user; 
but occasionally they are helpful. 

Quotation marks in an input 
string are another part of the story, 
and in fact may be used to defeat 
the function of the comma and col- 
on. If you begin and (optionally) end 
your string of input garbage with a 
quotation mark, you can put 
anything you want, including com- 
mas, colons, and the kitchen sink, 
into the computer's memory by 
means of your INPUT statement. 
EXCEPT (there's always one in the 
crowd) for another quotation mark. 
So if you typed in 

"EINSTEIN, ALBERT: 

PHYSICIST" 
then the entire string of characters, 
except for the quotation marks 
themselves, would be treated as one 



input string. Without the leading 
quotation mark, the input would be 
split into three parts and would re- 
quire three variables in the INPUT 
statement to capture all three. 

Incidentally, you can stick quota- 
tion marks themselves into the com- 
puter's memory using an INPUT, as 
long as some non-space character 
precedes the first quotation mark 
(e.g., Q"SD2"""*"R). Then all 
quotes will be treated just like any 
other characters. But also note that 
beginning the input with a character 
other than a quotation mark will 
NOT then allow you to include com- 
mas and colons in the string. There 
are just some things in life that you 
can't have both ways, and with an 
INPUT statement that's one of 
them. 

The Atari's INPUT statement, as 
noted above, works just a bit dif- 
ferently. Any characters, including 
commas, colons, and quotation 
marks, can be entered via INPUT us- 
ing a string variable. Multiple 
variables using a single INPUT state- 
ment are still allowed; however, on- 
ly when you are entering multiple 
NUMERICAL variables can you type 
them in separated by commas. If 
you're entering multiple STRING 
variables, each entry must be 
separated from the next with a 
RETURN, since commas and colons 
would simply be accepted as part of 
the input. 

To add to the fun, S-80 Disk 
BASIC users also have another state- 
ment available to them, which func- 
tions as Atari's INPUT does when in- 
putting a string. Its name is LINE IN- 
PUT, and it will accept all 
characters as part of the input line. 
It must be used with one and only 
one string (not numerical) variable 
name, such as 

LINE INPUT A$ 
and is terminated by pressing 
ENTER. 

There will be a little more to say 
about INPUT next month, under the 
topic of output (ah, the subtle logic 
of it all). But first let's look at some 
other options that the BASIC pro- 
grammer has for feeding stuff into a 
program. Here we have to get even 
more machine-specific. Apple, 
Atari, and (in Disk BASIC only) the 
S-80 all have the statement GET. 
What can be confusing is that all 
three use it in different ways. The 
S-80 uses it as a means of reading a 
record from a random-access disk 
file, which is not really germane to 
the present discussion. The Atari's 
GET is used to retrieve a single 
character from a file — a file which 
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might be on a disk, but which might 
also be (lo and behold) in the 
keyboard's input buffer. (That's the 
place where disreputable characters 
loiter around waiting to be used by 
the computer after being typed in.) 
And the Apple's GET is different yet, 
having the exclusive job of snatch- 
ing a single character ONLY from 
the aforementioned keyboard buf- 
fer. 

The Atari and Apple GETs, then, 
can be used to capture any 
character — one and only one — 
which is typed in at the keyboard. 
The statement is simplest on the Ap- 
ple, where it takes either of the 
forms 

GET A or GET A$ 
depending on whether you want to 
get a number or a non-numerical 
character. On the Atari, prior to us- 
ing the GET you need to assign 
what's called an Input/Output Con- 
trol Block (lOCB) to the keyboard. 
This done with a statement such as 

OPEN #2,4,0,"K:" 
which assigns lOCB #2 to the 
keyboard (K:). The number 4 
specifies an input-only device, and 
the number is just a filler for an 
unused "auxiliary code" specifier. 
Once this is done, then a statement 
such as 

GET #2, A 
will do the trick whenever you want 
to grab a character. 

With both the Atari and the Ap- 
ple, when a GET is encountered, the 
computer will print the cursor on 
the the screen and wait for you to 
press any key (NOT followed by 
RETURN). After you do that with the 
Atari, the variable you specified (A, 
in the above example) will be as- 
signed the ATASCII value of the 
character you entered (0-255). The 
Apple, on the other hand, will assign 
to the variable the actual value of 
the character typed in: through 9 
for a numerical variable, or the ap- 
propriate one-character string for a 
string variable. Then, with both 
machines, the cursor will disappear 
and the program will go on to the 
next statement. Note that the 
character you typed will NOT be 
printed on the screen by the GET 
statement, unlike INPUT which 
displays characters as you type 
them. 

The S-80 has a statement called 
INKEY$ which, like Apple's and 
Atari's GET, allows you to capture a 
single character from the keyboard. 
But unlike said GET, INKEYS won't 
print the cursor on the screen, and it 
won't stand around waiting for you 

continued on next page 
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to tap a key. It whizzes by, glancing 
at the keyboard buffer on the run; 
and reports back to your program 
what it saw, even if it saw nothing at 
all. For this reason, INKEY$ is fre- 
quently used in a loop that keeps on 
sending it back to look again until it 
finds something other than an emp- 
ty room. For example: 

10 A$ = INKEYS: IF A$ = "" 

THEN 10 
where there is no space between the 
quotation marks, indicating the 
"null" or empty string (i.e., no 
keypress). 

You can do the same thing on the 
Apple that INKEYS does on the S-80, 
using a PEEK statement. (More on 
such voyeuristic goodies in general 
in a later article.) A PEEK into 
memory location -16384 inside the 
hidden recesses of the Apple (which 
you don't even have to Uft the cover 
to do) will reveal a number equal to 
the ASCII value of the last key 



struck, plus 128. If no character at 
all is in the buffer, then the number 
you find will be less than 128. As 
with INKEYS, no cursor is printed on 
the screen when you do the PEEK, 
and there's no hanging around 
waiting for a character to show up. 
So again, this statement is usually 
found in a loop which keeps check- 
ing for a keypress (although such 
loops may well be quite a bit longer 
than the one-line examples given 
here). After finding a character in 
the buffer with this PEEK, it's good 
practice to clear the buffer with the 
statement POKE -16368,0. 

The following four bits of coding, 
then, are pretty much equivalent, all 
of them used to capture a single 
character from the keyboard in AS. 
On the S-80: 

10 AS = INKEYS: IF AS = "" 

THEN 10 

On the Apple: 
10 GET AS 



or 

10 A = PEEK(-16384): IF A<128 

THEN 10 

20 POKE -16368,0: AS = 

CHRS(A-128) 
On the Atari: 

10 GET #2,A: AS = CHR$(A) 

If all this seems a little 
confusing... well, it can be. But since 
most of us don't have more than 
one computer system, it's not all 
that bad once you get used to your 
own. 

One final note on input before 
abandoning you for another month. 
YOUR input in response to this col- 
umn is most welcome. Suggestions 
(keep them nice), arguments (keep 
them rational), additional observa- 
tions (keep them simple so I can 
understand them), and contribu- 
tions (cash, check, or money order) 
will all be graciously and gratefully 
received. But as far as other types of 
letters go — no, I'm sorry, I'm busy 
next Saturday night. Q 
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which may be added to, deleted 
from, or updated by your programs. 
This information is stored as files. 
Files may be composed of one or 
more data records and may be con- 
tained on any storage media such as 
magnetic tape or magnetic disk. In 
our Payroll application example, we 
may have one file which contains in- 
dentification and control informa- 
tion relative to the Client (company). 
This file would only consist of one 
record, since there is only one com- 
pany involved. We would also have a 
file of Employee Records. This file 
would have a separate record for 
each employee; hence, it will contain 
multiple records. Collectively, these 
files, as well as any other files that 
may be required, constitute our data 
base. 

A Record is composed of data 
elements and our efforts now should 
be to ascertain which of the data 
elements are to be included in each of 
the Records. In addition to the input 
and output data elements required by 
the system, our System Design 
analysis may turn up the re- 
quirements for "intermediate" data 
elements. For example; in our 
Payroll application we most probably 
have identified input data elements 
such as "Salary" and "Hours 
Worked". Since the data element 
"Salary" might be passed directly to 
the output data element "Gross 
Wages", we would not require an in- 
termediate element. However, we 
must have some method of conver- 
ting "Hours Worked" into "Gross 
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Wages". To do this, we will probably 
be required to add the intermediate 
data element "Hourly Rate of Pay" 
if we do not already have it on our list 
of data elements. 

After our list of input, in- 
termediate, and output data elements 
has been completed through analysis 
of the elements (or at least as com- 
plete as we can visualize at this 
point), we are ready to start planning 
our Record Layouts. 

A Record Layout is simply a "pic- 
ture" of the conceptualized format 
of the records we will be using in our 
data base files. These completed 
Record Layouts; our list of data 
elements and such notes as may be re- 
quired relative to the source, content, 
or use of the data elements (we will 
call this the Data Element Dictionary 
and discuss it at more length in Sec- 
tion III); and, our Flow Charts which 
we prepared in the Problem Defini- 
tion phase and updated in the 
Systems Analysis phase constitutes 
our System Design documentation. 

PROGRAM DEVELOPMENT 

Now is when it starts coming 
together. If you have done your plan- 
ning well, the actual coding of pro- 
grams can be fun and if it is not fun, 
get out of the business right now! 
You may be startled with an observa- 
tion that I have made. That observa- 
tion is that most of the programmers 
I have met in the last twenty years 
were not programmers at all. They 
were simply people working at pro- 
gramming. I didn't keep figures dur- 
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ing this time but I will venture a guess 
that the great majority of these peo- 
ple were in the business for one of 
two reasons; either they found a 
secure little niche in life that paid 
rather well or they were simply using 
it as a stepping stone to bigger and 
better things. For some it was a very 
slippery stone and for others the 
Peter Principle was appros. I think 
that the advent of the microcomputer 
will change this programmer profile 
dramatically. 

Let's assume you do like to pro- 
gram. If you haven't yet learned, this 
booklet will not attempt to teach you. 
There are too many good books on 
that subject already. However, there 
are several rules to remember, 
whether you are coding for profit or 
for your own joy and amusement. 
These rules are not mandatory, your 
programs will run whether you use 
them or not, but if you employ them, 
you will find that the coding can be 
speeded up, the chance of error 
reduced, and you will have far less 
debugging to do. 

Common Subroutines. During the 
System Design phase you must have 
noticed that at several points in your 
logic the same routine would be re- 
quired. Examples of this wold be In- 
put/Output routines against the same 
data file or a routine to convert dates 
from computational mode (numeric) 
to display mode (string) or vice versa. 
These common routines may be re- 
quired at several points in program 
coding. Therefore, to save coding 
and to reduce the chance of error, it 
would be prudent to write the 



subroutine coding, debug it, and save 
it away for later inclusion in your 
program(s). Remember that every 
byte of program code is a potential 
error and to reduce coding is tanta- 
mount to reducing errors. Besides, 
multiple usage of common routines 
within the same program will reduce 
memory requirements. 

Simplicity. For some reason, I 
guess it is human nature, program- 
mers feel that unless the coding is 
esoteric they will be scoffed at by 
their peer group who might read the 
program. Bull! The name of the 
game is to write code that works and 
can be easily deciphered when 
modification are required. KISS 
(Keep It Simple, Sugar) is the 
byword. 

Use Copious Comments. I learned 
something in pistol shooting many 
years ago — that the human mind 
can concentrate on a given object (in 
that case the front sight), to the ex- 
clusion of all other things, for only a 
few seconds. I don't care how 
brilliant you are (Mensa take note), 
you cannot retain the knowledge of 
where or why you wrote a particular 
set of code for very long. A few 
minutes of coding comments here 
will save countless hours later. 
Besides, we will be showing you how 
to take them out when they are no 
longer needed. 

the more frustrating aspects of 
debugging a program is the "lost 
variable" problem. This is when you 
inspect the contents of a variable and 
say to yourself, "I wonder how that 
got there?". One of the prime faults 
of BASIC is the restriction placed on 
variable naming conventions. True, 
many versions allow the use of an 
eight-byte variable name but with on- 
ly the first two bytes having 
precedence. I have always chosen to 
shy away from using these longer 
names because the inadvertant 
duplication of variable names is a 
trap of the first magnitude. 

Write Your Code. I write out my 
code before I start keying it in. There 
are many who would disagree with 
this modus operandi as being un- 
necessarily time-consuming. I guess I 
don't have the retentive powers or 
native genius to code directly from 
the keyboard — or I am writing big- 
ger programs that must interrelate 
with other programs — or I don't 
write "structured" programs. 
Whichever is my problem, I find it 
necessary to commit my code to 
paper before keying. 

However, there are some definite 
benefits to the way I do business. 
First, I know where my GOTOs go 



to. Second, and very important, I 
trap many little syntax errors and 
even some logic problems by being 
forced to take a second look. 

Keep a Notebook. I guess I 
subscribe to most all of the popular 
pubhcations devoted to the TRS-80 
because that is my machine and I 
firmly beheve that the world is made 
up of many programmers that are 
smarter than I am. Fortunately, a 
small amount of this intelligence 
creeps into these trade publications in 
the form of a few Unes of code that 
are sheer genius. I pay a lot of atten- 
tion to these coding examples and, 
when I find one of particular interest, 
I write a little routine which incor- 
porates the idea, test it for authentici- 
ty (some publishers are notorious for 
typographical error), and incorporate 
it into my notebook. 

Consider the User. While you are 
programming, think about the per- 
son who is going to have to operate 
your system. If you are going to write 
a line of code that will soUcit a 
"YES" or "NO" response, add the 
extra code that will enable the pro- 
gram to ascertain the response from 
the first character of the input. I have 
read a lot of adverse comment about 
Microsoft BASIC not reinitializing 
the contents of the variable on an IN- 
PUT statement. I consider this a 
boon. For example, if I were to solicit 
a negative or affirmative response, 
my code might look something like 
this. 

500 X$ = "Y" : INPUT"WANT 

TO CONTINUE (Y/N) ";X$ 

510 IF LEFT$(X$,1)="N" 
THEN STOP ELSE IF LEFT$(X$,1) 
< > "Y" THEN 500 

520 REM RESUME PROCESS 
ING WITH EITHER "Y" OR 
NULL RESPONSE 

In this example, the variable X$ is 
set to "Y" prior to the solicitation 
because "YES" is assumed to be the 
most frequently used alternative. 
Therefore, when responding to the 
question, the operator may either 
enter the character "Y", "YES", or 
simply depress the (ENTER) key. 
Line 510 will either direct the 
negative action or trap erroneous en- 
tries and cause resolicitation of the 
correct entry. Frankly, I detest pro- 
grams that require me to enter a "1" 
for "YES" and a "2" for "NO" or 
some similar Level I convention. 
After paying the tariff for Level II, I 
want to be able to exercise its 
capability. 

Plan Ahead. In the last paragraph, 
I made an innuendo about the restric- 
tiveness of TRS-80 Level I BASIC. 
Now let me come right out and tell 
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you what is wrong with Level II. It 
lets you get away with murder in two 
areas: the first being the graphics 
characters and the second the IF- 
THEN-ELSE statement. This was 
fine as long as we didn't have any 
place else to go with our software, 
but look what happened when Radio 
Shack announced the Model II. 

First, the ASCII codes for graphics 
characters have been severely 
restricted. Now, for those of us who 
disdain games, this no big thing. 
However, I do like to dress up my 
screen displays with some lines of 
graphics. For example, I was using 
the statement PRINT STRINGS 
(64,CHR$(138)); to display a nice 
heavy line across the screen. This is 
not so good on the Model II so I have 
changed it to PRINT STRING$(64, 
" = "); so that we can all be compati- 
ble. 

Second, Level II allowed us to be 
very sloppy with the IF-THEN- 
ELSE. You could get away with the 
statement IF A = B GOTO 500 ELSE 
GOTO 600. This statement makes the 
Model II regurgitate. Well, friends, 
the Model II BASIC dialect (at least 
in this case) is industry standard so 
you had better consider it if you in- 
tend to "up-Une" your programs 
some day. Just for the record, the 
rule is that IF must be followed by 
THEN and may or may not be 
followed by ELSE. The GOTO is 
assumed in either case. 

Of course, if you are like me, you 
violate all of these rules most of the 
time anyway and that is why we offer 
the Mod I to Mod II FILTER pro- 
gram at the end of this booklet. This 
is a program which can materially 
assist anyone who wishes to transfer 
programs up-hne to the Mod II. 

UNIT/SYSTEM TESTING 

Unit Testing is the testing of each 
individual program while system 
testing is a test of the data flow 
throughout the entire system. Nor- 
mally, much of the unit testing can be 
performed as the program is being 
keyed in. Because of the interpretive 
nature of the BASIC language, a 
subroutine or a few contiguous Hues 
of code can be tested as an entity. In 
fact, it is a good idea to always con- 
sider the order in which a program is 
to be keyed in — it will enable you to 
take full advantage of the 
"piecemeal" testing. 

As I stated earlier, I commit my 
code to paper before keying. This 
enables me to key in any part of a 
program and perform a test on it 
before proceeding. In this manner, a 
continued on page 87 
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continued from page 85 

program can be built in increments 
and tested in larger and larger 
segments until, when it is completely 
keyed in, it is virtually "bug-free". 
One of the shortcomings of TRS-80 
BASIC is that it does not syntax 
check your instructions while they are 
being entered, and this method of 
keying and testing is an excellent way 
to overcome this shortcoming. 

The delivery of "bug-free" soft- 
ware is the programmer's Great 
American Dream. The best way to 
come even close to this dream is to 
conceive and execute a test plan that 
will cause each of the lines of code to 
be executed at least twice. Yes, twice! 
This is because the language you may 
be using may have some idiosyncrasy 
that the second iteration of a logic 
path could cause inconsistant results. 
For example, the FOR-NEXT loop 
— does it exit on the FOR or the 
NEXT? Also, you could have 
overlooked some type of switch set- 
ting that would fail on the second 
iteration. 

We have all heard of Murphy's 
Law which states that "anything that 
can go wrong, will". Well, when it 
comes to installing software, you will 
soon learn that Murphy was an op- 
tomist. Remember, if you don't ade- 
quately test and de-bug your soft- 
ware, the Client will do it for you — 
and usually at the oddest hour! 

A good test plan is a combination 
of hard data and common sense. You 
might best construct a test plan by 
gathering all of the input documents 
that your system requires and making 
representative entries that will ac- 
commodate all of the input Data 
Elements contained thereon. (You 
did save those completed documents 
that you picked up at the Client's of- 
fice six months ago, didn't you?) Do 
not test with just what you know to 
be valid Data Element values. For ex- 
ample, if a Data Element is titled 
"Unit Price" and it is assumed that a 
positive value is always entered by the 
Operator, then test with positive 
numbers (including extra decimal 
places), negative numbers, null 
values, and even alphabetic 
characters to see what will happen. 
Not only are we interested in insuring 
that data is processed correctly, but 
we must insure that, during day- to- 
day operation, the computer will 
never come to an undocumented 
"READY". You may as well patch 
your Client's operating system so 
that the "READY" message is 
followed by your home phone 
number — it will save the Client time 
in looking it up! 



DOCUMENTATION 

The subject of Documentation 
will be treated in three parts; Internal 
Documentation, External Documen- 
tation, and Backup Documentation. 
Internal Documentation concerns 
those instructions to the operator 
that are intrinsic to the programs 
such as alternative responses to 
prompting messages displayed on the 
video monitor during operation. Ex- 
ternal Documentation is that 
documentation which is provided to 
the Client which explains the opera- 
tion of the system and might also be 
used for sales promotion of other 
prospective Clients. Backup 
Documentation consists of the 
forms, notes, and listings used during 
systems development. 

One of the popular trade publica- 
tions recently published an im- 
pressive statement. It said, in 
substance, that one did not have to be 
a programmer to operate a computer 
system; provided that the system has 
been designed for the naive user. In- 
ternal Documentation should always 
consider that the user is naive. If this 
were not so, you would be out of 
business. 

How can we best accommodate the 
naive user? Well, the method I ad- 
vocate is that the user should need 
only know how to turn the system on 
and "boot" your application pro- 
gram. Ideally, in a multi-program 
system, this would be a "menu" pro- 
gram which would guide the operator 
to the function which is to be per- 
formed by simply selecting the ap- 
plicable function code. Bear in mind 
that the more simple you make the 
system operate, in terms of mean- 
ingful prompting messages and 
responses, the less trouble you will 
have in installation and training and 
the less "nonprofit" calls you will 
receive subsequent to installation. 
Just a note about operator interac- 
tion with the prompting messages. 
Whenever you ask the operator for a 
response, trap out invaUd response 
possibihties. Don't give the computer 
the chance to come to the "READY" 
simply because someone entered 
something unexpected. 

In many cases, good Internal 
Documentation will preclude those 
"I-did-this; it-did-that; what-do-I- 
do-now?" calls. I say "many cases" 
because no matter how good your 
documentation might be, some peo- 
ple just disdain reading instructions. 
This brings up a point to remember, 
when you are instaUing your system, 
install your documentation. That is, 
make sure the operator knows of its 
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existence and how it is used. It will 
save you much grief later. 

Internal Documentation should 
consist of the following documents as 
a minimum: 

...Program "boot" sequence. 
These are the specific instructions for 
initializing the system and getting the 
first function menu on the screen. It 
should be tailored to the specific 
hardware and Operating System that 
the Client will be using and consists 
of each individual operation that 
must be performed down to the level 
of depressing the (ENTER) key or its 
equivalent. 

...Backup Operations. A descrip- 
ton of just what the operator must do 
to back up the program and data files 
to provide for emergency conditions 
such as hardware failure, a mutilated 
diskette, fire, flood, or acts of a 
disgruntled employee. 

...Auxiliary Messages. If program 
prompts or information messages, 
such as error conditions, requiring 
further clarification than can be 
displayed on the video screen, these 
should be keyed by a message 
number to the Internal Documenta- 
tion where they should be amplified 
to whatever extent necessary. 

External Documentation is man- 
datory if you intend to sell your soft- 
ware outside your commuting area or 
even within it if you will not per- 
sonally be installing the software. 
This type of documentation is often 
called a Management Overview and 
its purpose is to spell out just what 
the capabilities of the system are, in- 
cluding options on how it may be 
run. As a minimum. External 
Documentation should include: 

...A System Overview. This is a 
narrative abstract of system 
capabilities. 

...A Detailed System Description. 
An amplification of the System Over- 
view, this section of the External 
Documentation should include a 
detailed description of everything the 
system will do, what it will not do 
(such as file size restrictions), and In- 
put/Output examples. 

...System Options. If applicable, 
the External Documentation should 
include all of the various alternatives 
open to the CHent for running the 
system. 

Backup Documentation will be 
continued on next page 
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continued from previous page 

discussed in depth further along in 
this booklet; however, its importance 
will be discussed here. Simply, it is 
this: Without adequate Backup 
Documentation, you will have an ex- 
tremely difficult (if not impossible) 
time in maintaining a system or 
modifying it to some other Client's 
requirements. You may feel that the 
system you have created will stand 
for years as a testimonial to your 
genius. Bosh! About the only soft- 
ware that withstood the test of time 
was the Ten Commandments and 
that is because it was documented in 
stone and there was no competition 
between developers. If there is one 
thing you can count on about your 
masterpiece (other than it will not be 
bug-free) is that the user will require 
modifications and enhancements. 
Count on it. 

There is aslo another very good 
reason to be meticulous about the 
preparation of Backup Documenta- 
tion. You have labored hard and long 
to create this system and there is no 
sense of re-inventing the wheel every 
time you want to sell something 
similar to another CUent. However, 
be aware of another truism — 
whatever you have already developed 
and running will not satisfy the next 



^ Welcome to . . . 

THE RACES 




THEY'RE OFF! 



Eight horses surge down the track, straining for 
the lead, with your horse struggling in the pack. 

They rourid the turn and head into the stretch. 
Your horse shoots from behind, catching the lead 
horse. They cross the finish line. 

The Win, Place, and Show horse results are 
printed on the screen, along with each bettor's 
race winnings and total daily winnings. 

You collect your winnings and decide if you want 
just to watch, or bet on the next race, you study 
the odds, place your bets, and select the track 
speed — fast (dry), average, or slow (wet). 

The horses are at the starling gate, jumping and 
snortmg. You raise the gate, and the next race is 
underway. 

Each horse gallops forward randomly. Spectators 
squirm and shout as they urge their horses to win. 

You have all Ihe track action and thrills. Plenty of 
wmners — and losers! Now you can use your com- 
puter to find out what it takes to win at the track. 
Good Luck! 

Requires 16K Send check, or charge it to Visa 
S-80 Tape— $9.95 or MC. (Print charge number and 
S-80 Disk— $14.95 expiration date— Phone 313-627- 
2877 for charge if you wish) 

WE GIVE IMMEDIATE SERVICE! 
ECHO PRODUCTS INC., 335 MJLL, ORTONVILLE 

V MICH. 48462 

DEFT. S Dealer Inquires Invited ^ 
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prospective Client you show it to. It 
will require modification because 
"his business is different". Re- 
member something else when deal- 
ing with a prospective Ghent. His 
business is different! It is because he 
runs it differently. The successful 
software developer does not profess 
to know how to run the prospective 
Chent's business better than he does 
(although you might). If you persist 
in this attitude and keep faihng to sell 
your services, then have your 
business cards printed to read 
"Business Management Consultant" 
and get out of the way of us tigers! 



SYSTEM IMPLEMENTATION 
AND MAINTENANCE 



System Implementation (or In- 
stallation if you prefer) can be the 
most traumatic experience of the 
System Development cycle because 
this is where the phrase "Oh, I 
thought you said ..." is most fre- 
quently heard. You will find, on oc- 
casion, a built-in animosity among 
employees of the business who will be 
using your new system. This animosi- 
ty is usually quite subtle and is 
sometimes manifested by an apparent 
nervousness on the part of the 
employee or an apparent inabihty of 
the employee to grasp the operation 
of the system which you have so 
meticulously documented. On the 
other hand, you will sometimes find 
employees who are not so subtle with 
their animosity. I've even heard 
employees say, "I don't care what 
the Boss says, this isn't the way we do 
business. He doesn't know what is 
going on." 

This animosity, if found, is most 
probably fostered by articles that the 
employee has read about automation 
replacing them; or it could be that 
people are simply adverse to change. 
If your system is to affect one or 
more employees, then it would be 
prudent to discuss the ramifications 
of System Implementation during 
early discussions with your Ghent in 
the Problem Definition phase. If a 
problem is anticipated, it may be a 
good idea to prepare the employees 
for the change early in the System 
Analysis phase by having them con- 
tribute to this effort (you will be sur- 
prised what you can learn from 
them). Simply by letting them talk 
themselves out, and being a sym- 
pathetic listener, you will steal their 
thunder, or at lease temper it, for 
what is to come later. Remember this 
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point — the Client (Boss) who states, 
"My employees will damn well do 
what I tell them to do", may be a 
tiger in front of you but a pussycat 
when it comes to those employees. 

At any rate, the Implementation of 
an automated system should be well 
thought out prior to its execution. 
Put your thoughts on paper. Time- 
phase the implementation so that it 
does not cause a more-than-necessary 
disruption to normal office pro- 
cedures. Remember, you are pro- 
bably not being paid in full for your 
efforts until you have implemented 
the system, so your economic life 
depends on the success of this phase. 

Maintenance of the system will 
probably start on Day One of Im- 
plementation. There will always be 
some little "glitch" to be fixed. 
However, the major System 
Maintenance effort will follow im- 
plementation. It seems that the 
enhancement of a system is in direct 
proportion to how good a job you 
did on the initial system. If you did a 
bang-up job of interpreting the 
Client's requirements and installed 
the system to the satisfaction of all, 
they will quickly find things for the 
system to do that were not in the 
original specifications. I once heard a 
computer professional state that he 
was considering giving away soft- 
ware, just so that he could do 
enhancements, and modifications — 
and charge for those! You can always 
determine the quality of your system 
by the speed with which the Client 
gets back to you with add-on work. 

The System Maintenance phase is 
where your Backup Documentation 
becomes vital. Obviously, you have 
been doing other things in the interim 
between the Program Development 
phase and the Maintenance phase 
and how quickly we forget the nitty- 
gritty of what we have done. A direc- 
tory of program routines and 
subroutines, a data element to 
variable name cross-reference, and 
detailed record layouts are "musts" 
for System Maintenance. 



SUMMARY OF SECTION I 



Section I has been mostly theory. It 
has, however, provided a structured 
approach to Systems Development 
and pointed out some of the pitfalls 
that might be experienced. In the next 
section, we will take a more 
pragmatic approach and describe 
some specific tools that might be used 
for Systems Development. 




SECTION II 
THE SYSTEM DESIGN MANUAL 

Up to this point, we have discussed 
the "what", "where", "when" and 
"why" of Systems Development for 
microcomputer systems. Let's now 
turn to the "how" and provide some 
examples of documents which will 
materially assist your development 
efforts as well as serve as backup 
documentation when the system is 
complete and we enter the System 
Maintenance phase. I have attempted 
to minimize the number of forms, yet 
capture all of the pieces of informa- 
tion that will be required for both 
development and subsequent 
maintenance of the system. This is 
not to say that you will not have 
useful information on other 
documents, but these other 
documents are generally free-form, 
ranging from bond paper to the 
backs of envelopes and even an occa- 
sional brown paper lunch bag. The 
principle here is the same as my ac- 
countant keeps telling me; it really 
doesn't matter where you write it, 
just so long as you write it somewhere 
and don't lose it. 

However, brown paper lunch bags 
are difficult to organize into mean- 
ingful files, so the five forms which 
will be described below are a sug- 
gested substitute. These forms serve 
as the basis for a System Design 
Manual. Not only does a manual of 
this nature materially assist the 
development of a system, but it will 
serve you extremely well throughout 
the life of the system. (That is the 
period of time when either you or 
someone else is actively using the 
system.) Using the forms we are 
about to describe, the System Design 
Manual would consist of the follow- 
ing: 

...A System Description composed 
of completed Program Designed 
Description Forms. 

...Backup Documentation ar- 



ranged in five sections and referenced 
by the Program Design Descriptions. 

- Section 1 contains Source Docu- 
ment Description Forms. 

- Section 2 contains Video Display 
Format Forms. 

- Section 3 contains Line Printer 
Format Forms. 

- Section 4 contains File Layout 
Forms. 

- Section 5 contains Program Flow 
Charts, the Data Element Dictionary, 
and Program Listings. 

PROGRAM DESIGN 
DESCRIPTION FORM 

This form, which is shown in 
Figure 2-1, will provide you with a 
"picture" of the operational flow of 
the system. These forms are usually 
completed for each program in the 
system, but may also be completed 
for segments of programs where the 
additional detail would be required. 

The heading of the form should 
contain the identification informa- 
tion necessary to relate the program 



or program segment described on the 
form to its logical position in the 
system. This includes the name (or 
acronym) you have given the system, 
the program name (or acronym and 
the module (or segment) name if fur- 
ther definition is required because the 
program is divided into logical 
modules. 

As we said earlier, Program Design 
Descriptions should be prepared for 
each program, or program module, 
that is identified on your system flow 
chart that was prepared as part of 
your initial System Design (and prob- 
ably updated many times since 
then). The "Synopsis" block of the 
form should provide a brief state- 
ment as to what this pro- 
gram/program module does and how 
it contributes to the overall system 
operation. As you can readily see, 
when you have completed the Pro- 
gram Design Description forms for 
the entire system, you will be able to 
discard that brown paper bag with all 

the erasures on it that has been so 
continued on page 95 



SOFTWARE DESIGN 
DESCRIPTION 



SYSTEM 



PROGRAM 



MODULE 



SYNOPSIS: 



I/P DOC (Fmt 1) 




I/P DOC (Fmt 2) 



I/P DOC (Ftnl 3) 



TAPE I/O #1 



Ref: 

5- 



TAPE I/O #2 



Ref: 4 



DISK UNIT #0 


FILENAME 


* 


REF 










DISK UNIT #1 


FILENAME 


* 


REF 









DISK UNIT #2 1 


HLENAME 


* 


REF 









DISK UNIT #3 1 


FILENAME 


* 


REF 









* FILE TYPE: P-Program; D-Permanent Data File; T-Temporary Data File; I-Interface 



Figure 2-1 
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ANALLIST 



by Rod Fitzgerald 

"Anallist" is an S-80 utility for 
creating structured program listings 
and requires 8K. 

One of the advantages of Level II 
and Disk BASIC is their ability to 
process program code with more than 
one statement per line. This allows 
more versatility in writing programs, 
and can also save memory space. 
Even if a program is written with 
single statement lines, there are now 
programs available to "pack" your 
BASIC program into a multi- 
statement format. 

But this very ability also gives rise 
to one of the disadvantages of 
BASIC. With as many as 15 or 20 
statements crammed into one line, 
the "flow" of the program can 
become very hard to follow. (BASIC 
is not exactly a "structured" 
language to begin with!) This is 
especially true if there are "nested" 
IF-THEN-ELSE statements in a line. 
Trying to discern where a program is 
branching from a nested IF-THEN- 
ELSE can be very frustrating. 

"Anallist" was written to alleviate 
this problem. It breaks down multi- 
statement lines into individual in- 
structions, and "structures" nested 
IF-THEN-ELSE statements. See 
Figure 1 for an example of a section 
of a program before and after 
"Anallist". The output is directed to 



a printer, and shown on the monitor 
as well. "Anallist" prints headings 
and page numbers automatically, and 
allows programmable skips to the top 
of the next page so that you can easily 
divide the program into sections 
(e.g., initialization, main body, 
subroutines, data, etc.). 

There are certain steps that must be 
taken beforehand to fully utilize 
"Anallist". First, go through the 
program that you want to analyze, 
and make sure that every IF state- 
ment has a corresponding THEN. 
For example, a statement such as 

IF Z = 10 GOTO 350 

must be changed to 

IF Z = 10 THEN GOTO 350 

in order to be analyzed properly. Sec- 
ond, if programmed skips to top-of- 
page are desired, enter a line at the 
appropriate point consisting of a line 
number, a remark (REM or ') and a 
slash (/). Third, if for any reason you 
do not want a hne analyzed (that is, 
you want it listed normally), enter a 
colon as the first character in that 
line. For instance, you may want to 
do this with lines where many 
variables are being initialized. 

If these steps are followed, you 
should get a properly structured 
Usting. Incidentally, if your printer 
can handle S-80 graphics, then they 
will be printed in the listing also. This 



is useful in finding errors in a line of 
"packed graphics." 

PROCEDURE FOR USE 
WITH LEVEL II BASIC 

1. CLOAD your BASIC program. 
Note: Your program must not have 
line numbers greater than 59999. 

2. Enter "PRINT PEEK(16633)". 
If the number printed happens to be 
less than 2, you will get an error 
message when "AnalHst" is run. If 
this is the case, just add two 
characters anywhere in your program 
and start again with this step. 

3. Enter "PRINT PEEK(16548)". 
We'll refer to the number printed as 
A. 

4. Enter "PRINT PEEK(16549)". 
We'll refer to this number as B. 

5. Enter "POKE 16548, 
PEEK(16633)-2". 

6. Enter "POKE 16549, 
PEEK( 16634)". 

7. CLOAD "Anallist". 

8. Enter "POKE 16548, A (from 
step 3). 

9. Enter "POKE 16549, B (from 
step 4). 

10. Enter "RUN 60000". 

PROCEDURE FOR USE 
WITH DISK BASIC. 

1. Save "Anallist" to disk in 
ASCII format (e.g., SAVE 
" ANALLIST/TXT" , A. 



FIGURE 1 


^ 


B = B + 1 




Before "Anallist" 


3200 


IF M « 2 < K THEN 




3050 G=G+l:W=W+l!lF il»2>6 THEN B=B+I 




E = B + 1 




3100 IF H=0 m M<=K THEN B=fi+1 


3J00 


SOTO 5000 




3200 IF HJ2<K THEN B=B+1 


4000 


PRINT 3a96,CHRti30) 




3300 SOTO 5000 


: 


PRINT 3S96,"Y0U LOSE"; 




4000 PRINT 3S96,CHR$i30)!PRINT 3896, "YOU LOSE"; 


4100 


G = G + 1 




4100 G=G+1;IF m2<G THEN B=B-1 


; 


IF H t 2 < G THEN 




4500 IF K«2>B AND H<K AND H<2 THEN B=B+1 ELSE IF B=0 THEN GOTO 9100 


! 


B = B - 1 




5000 IF m THEN PRINT " IN"!H;"I1DVES."!G0T0 5005 


4500 


IF K > 2 > B AND N < K AND H < 2 THEN 




5001 PRINT ■ IN";M;"«aVE." 




B = B + 1 




5005 PRINT3960,"Na. BflTS:";B; 




ELSE IF B = THEN 




5010 L=G-H 




GOTO 9100 




5110 PRINT ■ GflHESi"jS;" H0N/L0ST:"!H!"/"!L; 


5000 


IF N > 1 THEN 




6000 IF G>=100 THEN GOTO 9100 ELSE GOTO 1000 


• 


PRINT " IN";n; "MOVES." 
GOTO 5005 






5001 


PRINT " IN";N;"HOVE." 




After "Anallist" 


5005 


PRINT 3960, "NO. BATS:";B; 




3050 6 = G + 1 


5010 


L = G - H 




« = « + 1 


5110 


PRINT " GANES:"!S;" WON/LOST: ";«;' 


'■;l; 


! IF H » 2 > G THEN 


6000 


IF G > = 100 THEN 




: B = B + I 


; 


GOTO 9100 




3100 IF H = AND H < = K THEN 


■ 


ELSE GOTO 1000 
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2. Load your BASIC program. 
Note: Your program must not have 
line numbers greater than 59999. 

3. Enter 'MERGE 
"ANALLIST/TXT"'. 

4. Enter "RUN 60000". 

Since "Anallist" must examine 
every program byte looking for 
tokens, it's not terribly speedy. A 
12K program, for example, will 
usually take about 30 minutes to 
print. However, the lack of speed is 
more than compensated for by the 
clarity and structure of the resulting 
Hsting. You may find it habit- 
forming to go to your "Anallist"! 

VARIABLES 

CI: Length of remaining portion of 
program line. 



CI: Subscript for If/Else array. 

E!: Memory location of first byte in 

the current line. 

F$: Array of BASIC tokens. 

FI: Array of If/Else print positions. 

FO: "On" token flag. 

G: For/Next loop counter. 

G! : Memory location of current 

character/token in current line. 

H$: Temporary storage of data 

items. 

1$: Name of file on disk/tape. 

IN: Indentation from left margin. 

LI: If/Else array subscript. 

LP: Length of listing title. 

N2!: Current line number. 

P$: Listing title. 

PI: Indentation for Hsting title. 

P9: For/Next loop counter. 

Q: Page number. 



QF: Quote flag. 

R: Line counter. 

RF: Remark flag. 

S: Decimal value of current 

character. 

S$: String value of current 

character. 

SI: Decimal value of next character. 

S9!: Memory location of the start 

of next program line. 

T$: Reformatted portion of current 

line. 

Tl$: Remaining portion of current 

line. 

Xl$: Constant - value ":". 

X2$: Constant - value " + ". 

X3$: Constant - value "page". 

X4$: Page number string. 

XX: End of program flag. 

Y$: Miscellaneous input string. 



60000 60T060250 

Subroutine to skip to top of page. 

60050 F0RP9=1T066-R 

60060 IFFEEK(14312)=63THENPOKE14312,10ELSE60060 

60070 IFP9<4THENPRINT 

60080 NEXTP9:IFX)(=1THENP0KE16425,0:END 

60090 R=0: RETURN 

Subroutine to print page headings. 

60110 T$=STRING$(Pl,32)+PJ:G0SUB60150!Q=Q+l!H$=n$+STR$(B):T$=I 

$+STRINS$(64-LEN(I»)-LEN(X4$),32)+)(4»:GDSUB60150:T»=STRINB$(64," 

="):GOSUB60150:RETURN 

Subroutine to get a line of text (T$l. 

60130 Cl=LEN(T<)!lFCl>64THENCl=Cl-64:TI$=RIGHT»(T$,Cl):T$=L£FT»i 
T*,64):G0SUB60150:T$=X2»+STRINGJ(IN,32)+Tl$:RETUflN 



Subroutine to print T$, increment line count, skip to top of 
page, and print headings. 

60150 R=R+I:LPRINTT$:PRINn»;!lFLEN(T»)(64THENPRINT 
60160 U="":IFR>59THENGOSUB60050:BOSUB60110 
60170 RETURN 

Point at return position. 

60190 tl=13 

60200 Ll=Ll-l:IFLl>lflNDFI(Lll=OTHEN60200ELSERETURN 

Initialization. 

60250 CLEflR1000:DEFINTA-Z 

60260 E ! =PEEK ( 16548) +256«PEEK (16549) : IFE ! >32767THENE I =E ! -65536 

60270 :XU=' :":K2$=" +":X3»="PAGE" 

60280 D!MFi(122),FI(12):FI(l)=9:P0KEI6553,255:REST0RE 

60290 READH»:IFH$<>"END "THEN60290 

60300 F»(0)=H»:F0RG=lT0122:READF<(G):NEXT:IFF$(122)<>'NIDrTHENC 

LSiPRINT'INCORRECT DATA ITEHS IN ANALLiST'S ARRAY":END 

60310 CL5:INPUT'USUAt NAME OF FItE TO BE LISTED 'iU 

60320 INPUT'LISTING TITLE (OPTIONAL) "!P»:IFP»=""THENP$= 

■I » I" 

60330 LP=LEN{P»):IFLP<64THENPl=(64-LP)/2 

60340 IFPEEK(14312><>63THENINPUT'PRINTEfl READIED? (HIT ENTER) 

■;V$:G0T060340 
60350 PRINT: PRINT: BDSUB601 10 



Beginning of lain prograi loop. 

60400 S9 ! =PEEK (E I ) +256tPEEK (E I +1 ) : IFS9 ! >32767THENS9 I =S9 ! -65536 

60410 N2!=PEEK(EI+2)+256IPEEK(E!+3):IFN2!=60000THENXX=l:GDSUB600 

50 

60420 G!=E!+4:IN=6:RF=0:8F=0:CI=0:FORL1=2TOI2:FI(L1)=0:NEXT 

60430 N2$=STR$ (N2 I ) : T»=N2$+STRINB$ (B-LEN (N2t) , 32) 

Print the characters or tokens in the prograi line. 

60450 S«=CHR$(PEEK'(G!)):S=PEEK(GI):IFG!+1<=S9!-2THENS1=PEEK(S!+1 

)ELSES1=0 

60460 IFS<320R(S>95ANDS<128)0RS>250THEN60660ELSEIFRF=1ANDS=213TH 

ENT$=T«+CHRJ(61):BaTD60660:ELSEIFQF=lANDS<>34ANDS>31THENT$=T$+S$ 

:GOTa60660ELSEIFRF=lANDLEN(T$)=9ANDS=47THENT$=T»+S»:BDSUB60150:G 

QSUB60050: 60SUB601 10: GOTD60660 

Set quote flag or reiark flag if appropriate. 

60480 IFS=34THENQF=1-QF: B0T060590 

60490 IFS=5BANDS1=147THENRF=1:IFLEN(T<)<9THEN60670ELSE60SUB60130 

:T»=X1«+STRING$(IN,32):GOT060670 

60500 IFS=5BANDLEN (T$ ) <9THENT$=T»+" : ' : RF=1 : G0T060670 

60510 IFS=147ANDQF=0THENRF=1 

60520 IFS=32ANDRF=OANDBF=OTHEN60660ELSEIFS<>58THEN60590 

Print colon (S = 581. 

60540 IFRF=0ANDQF=0ANDS1=58THEN60660 

60550 IFSl=149THEN60SUB60130:BOSUB60!90:Tt=XU+STRING$(FI(LI)-3, 

32) : IN=FI (LI ) +2: IFLl >1THENFI (LI )=0:G0T060660ELSE60660 

60560 IFBF+RF=0THENBDSUB60130:T»=Xl»+STRIN61(IN,32)ELSET»=Tt+SJ 

60570 GOT060660 

Print alphanuaeric characters (32 - 95), 

60590 IFS< 128THENT$=T$+S$: GGTD60660 

Print token or graphic characters (127 - 255). 

60610 IFF0=1AND(S=1410RS=145)THENT$=T$+" ^FO^O 

60620 IFS<>143ANDS(>149flNDS<>161ftNDS<>202THENT$=T$+F»l5-mv.6Q'\ 

060660ELSEIFS=143THENCI=CI+l:FI(CI)=LEN(Tt)+l:T*=T*+F$(15):IN=IN 

+5ELSEIFS=202THENT»=Tt+F»(74):60SUB60130:T«=Xl»+STRING$(IN,32):G 

DTa60640ELSEIFS=161THENT»=T$+F$(33):F0=l 

60630 IFS=149THENIFS1=143THENT$=T«+F»(21)!GGSUB60130:IN=IN-5;T1= 

X1«+STRING$(IN,32):B0T060660ELSET»=T»+F$(21):IFL1>1ANDL1<13THENF 

I(L1)=0 

60640 IFS1>4SANDS1<58THENT$=T$+F«(13) 

Print full or partial line if ready, else go back. 

continued on page 95 
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WORD-SEARCH PUZZLE GENERATOR 



by David W. Durkee (S-80 and Atari 
translations by Jon Voskuil) 

"Word-Search Puzzle Generator" 
is for an Apple, Atari, or S-80 with at 
least 8K RAM and a printer. 

If you've been wondering about 
the word-search puzzles that have ap- 
peared in the last three issues of Soft- 
Side (including this one), here is the 
clever program that's been responsi- 
ble for generating them. With the 
computer's help, an imbecile (yea, 
even a SoftSide editor) can put 
together one of these entertaining 
goodies, in little more than the time it 
takes to think up the words you want 
included. 

Upon RUNning the program, 
you'll be given the option of seeing 
the puzzle as it's being created on the 
screen, or leaving the screen blank so 
that you yourself can enjoy working 
the puzzle later. Then you simply 
proceed to type in words to your 
heart's content. The computer does 
the rest, placing the words in random 
orientations in the letter matrix. 

The matrix size varies with the 
three versions of the program: 40 x 20 
in the original Apple version, 37 x 20 
in the Atari version, and 32 x 14 in 
the S-80 version. These dimensions 
are tailored to the screen display; if 
you're concerned only with the print- 



out, you could easily enlarge the 
matrix by changing the DIMension 
statement and the various loops 
which use those dimensions. For that 
matter, if you want a smaller, simpler 
puzzle, you could shrink the size as 
well. An interesting modification 
would be to allow the user to choose 
the puzzle dimensions each time the 
program is run. 

After typing in all the words to be 
included, entering the word "STOP" 
will cue the computer that you're 
finished, and it will proceed to 
generate an answer key, the com- 
pleted puzzle with random letters fill- 
ed in, and a list of all the words 
entered. (If you should happen to 
want the word "stop" as one of the 
words in the puzzle, as we did with 
the BASIC Keywords puzzle, just 
type it in backwards: "pots".) You 
are then given the option of printing 
out another copy of the puzzle and 
word list. After you have all the 
copies you want, the program ends. 

Besides the obvious entertainment 
value of the computer-generated 
puzzles, there's also a great potential 
for educational applications. It's an 
easy way to become familiar with a 
list of words — for spelling, 
vocabulary, geography, the sciences, 
almost any subject area. And in place 
of a word list, a clue list could be pro- 



vided (as with crossword puzzles), to 
help learn the meaning of the words 
as well. Let your creativity take over! 

VARIABLES 

A%(*,*) or A(*,*): Array which 
stores ASCII value of letters in 
matrix. 

A$: Input variable. Also used in 
Atari version to assemble each line 
of puzzle to be printed out. 
B: Counts directions that word may 
go in. 

B%(*,*) or B(*,*): Notes which 
directions the computer may write a 
word, given a random starting posi- 
tion. If B»/o(X-h2,Y-i-2) is 1 then it 
is possible to write in that direction; 
if it is 2 or more, then the word 
shares one or more letters with 
other words if written in that direc- 
tion. 

C: Loop counter. 
D, R: Used to select best direction 
in B% matrix. 

L, U: Random starting coordinates 
for word. 

X, Y: Indicate word direction along 
X and y axes; values can be -1, 0, or 
1 (but not both 0), defining the 
eight different directions. 

XI, Yl: Printing coordinates for in- 
dividual letters; derived from U, L 
and X, Y. 



S-80 Version 

Instructions and initialization. 

5 CLEAR 500 

10 CIS: PRINTJ76, CHR${23)|"HQRD SEARCH PUZZLE": PRINTJ396, "BY 

flflVID «. DURKEE"! PRINT851B,"TRANSLflTED BY JON VOSKUIL": PRINTS 

71i, 'COPYRIGHT (C) 1981" 

20 FOR 1=1 TO 1000: NEXT I 

40 CLS: PRINT CHR$(23);'T0 CREATE fl PUZZLE, SIMPLY TYPE IN A HOR 

D AFTER THE '?' PROMPT, AND PRESS 'ENTER', NHEN YOU'RE FINISHED 

, ENTER 'STOP' AS YOUR LAST HORD, AND THE COMPUTER tllLLDO THE R 

EST." 

50 PRINT:PRINT"PLEASE CHOOSE:": PRINT" 1 - FOR NORMAL DISPLAY D 

URINB ENTRY": PRINT" 2 - FOR BLANK DISPLAY (SO THAT 

YOU CAN'T SEE THE PUZZLE)" 
55 K»=INKEY$: K=VAL(K$)! IF K<1 OR K>2 THEN 55 
60 DEFINT A,B: DIM «(200), A(32,14), B(3,3) 
80 CLS:PRINT CHR»(23); 

Beginning of word-entry loop. 

90 Z=Z+1 

92 PRINTS 896, "NORD t";Z;: INPUT A$: IF A$="" THEN 92 

95 «»(Z)=A$ 

100 IF A$="STOP' THEN 500 



Choose randoi starting position. 

120 U=RND(15): L=RND(32) 

Check each direction to see if word lay be written in that 
direction. 

160 FOR X=-l TO 1: FOR Y=-l TO 1 

170 IF X=0 AND Y=0 THEN 270 

180 X1=L: Y1=U 

190 FOR C=l TO LEN(A») 

200 X1=X1+X: Y1=Y1+Y 

210 IF Xl>32 OR XKl OR Yl>14 OR YKl THEN B(X+2,Y+2)=0; 60T0 27 



220 IF A(X1,Y1)=0 THEN 250 

230 IF A(X1,Y1)<>ASC(HID«(A<,C,1)) THEN B(X+2,Y+2)=0: GOTO 270 

240 B(X+2,Y+2)= B(X+2,Y+2)+l 

250 NEXT C 

260 B(X+2,Y+2)=B(X+2,Y+2)+l: B=B+1 

270 NEXT Y,X 

280 IF 8=0 THEN 120 

Select direction to write word; if possible, choose one which 
will intersect another word. 

310 R=2: D=2 
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320 FOR X=l TO 3: FOR Y=l TO 3 


Fill in blanks with randoi letters. 




330 IF B{X,Y)>B(R,D) THEH R=1(:D=Y 






340 NEXT y,X 


570 PRINTJ894, "PLEASE HAIT A FEN HONENTS. . . "; 




350 X=R-2: Y=D-2 


590 FOR X=l TO 32: FDR Y=l TO 14 




340 IF X=-l AND Y=-l AND B(l,l)=l THEN 380 


400 IF A(X,Y)<>45 THEN 420 




370 BOTO AOO 


410 B=RND(24)+44: A(X,Y)=B 




380 X=RND(3)-2: Y«:RtlD(3)-2 


420 NEXT Y,X 




390 IF (X=0 AND Y=0) OR B(X+2,Y+2)=0 THEN 380 


430 60SUB 470 




400 X1=L; Y1=U 


440 LPRINT" ": LPRINT" COHPUTER-GENERATED": LPRINT" 
EARCH PUZZLE" 


HORD-S 


Print Kord on screen (unless blank screen was chosen). 


450 FOR 1=1 TO 31: LPRINT" ": NEXT I: 60T0 720 




420 FOR C=l TO LENIAO 


Subroutine to print complete puzzle. 




430 X1=X1+X: Y1=Y1+Y 






440 A(Xl,Yl)=ASCINIM(At,C,l)) 


470 LPRINT" " 




445 IF K=2 THEN 4M 


480 FOR X=l TO 32: FOR Y=:l TO 14 




450 PRINT? (YM)«44 + (Xi-l)t2, CHR$(A(X1,Y1)); 


490 LPRINT CHR»(A{X,Y))i" "; 




460 NEXT C 


700 NEXT Y: LPRINT: NEXT X 




470 B=0: FOR X=l Tfl 3: FOR Y=l TO 3: B(X,Y)=0: NEXT Y,X 


710 RETURN 




480 PR1NT}89<>, STRIN6$(32,32);: 60T0 10 


Print out Mord list. 




Prepare answer key. 


720 LPRINT" ■:LPR1NT" WORD LIST:": LPRINT" " 




500 FOR X=l TO 32: FOR Y=l TO 14 


730 FOR 1=1 TO Z-1: LPRINT N$(I): NEXT I 




510 IF A(X,Y)<)9 THEN 530 






520 A(X,Y)=45: PRINT* (Y-l)t44 + (X-1)I2, "-■; 


Another copy? If not, then end. 




530 NEXT Y,X 






540 PRlNTJ89i,"i: INPUT'POSITION PAPER AND HIT ENTER'iK* 


740 PRINTS 894, STRINB»(32,32)j: PRINTi 894,""j: INPUT 


■UOULD YO 


547 60SUB 470 


U LIKE ANOTHER COPY"iK«: IF LEFT$(Kt,l)="N" THEH END 




550 LPRINT- MPRINT- NORD PUZZLE ANSNER KEY" 


770 PRINT3 894, "J : INPUT"ADVAHCE PAPER AND HIT ENTER" 


Kt: BOTO 


540 FOR 1=1 TO 31: LPRINT' VHEXT I 


430 





Atari Version 
Documentation 

Lines 90-165: Initialization and in- 
structions. 

Lines 170-200: Beginning of word- 
entry loop. 

Line 210: Choose random starting 
position. 

Lines 220-340: Check each direction 
to see if word may be written in that 
direction. 

Lines 350-440: Select direction to 
write word; if possible, choose one 
which will intersect another word. 
Lines 450-520: Print word on screen 
(unless blank screen was chosen). 
Lines 530-590: Prepare answer key. 
Lines 600-670: Fill in blanks with 
random letters. 

Lines 680-720: Subroutine to print 
complete puzzle. 

Lines 730-746: Print out word hst. 
Lines 760-770: Another copy? If not, 
then end. 



90 POKE 752, 1 

100 PRINT ")":P0SITI8N 10,5:PRINT "NOR 

D SEARCH PUZZLE" 

105 POSITION 10,8:PRINT "BY DAVID M. D 

URKEE":POSITION lO.lOiPRINT "COPYRISHT 

(C) 1981" 
107 POSITION 7,13:PRINT "TRANSLATED BY 

JON VOSKUIL" 

110 FOR 1=1 TO 2000:WXT I 
120 PRINT •)':POSni»( 2,5:PRINT "TO C 



REATE A PUZZLE, SIHPLY ENTER A MORD 
NHICH YOU WOULD LIKE TO HAVE IN" 

125 PRINT "THE PUZZLE AFTER THE '?' PR 

ONPT." 

130 PRINT : PRINT "NHEN YOU'VE ENTERED 

ALL THE WORDS YOU WOULD LIKE IN THE PU 

ZZLE, ENTER THE" 

135 PRINT "WORD 'STOP' AND THE ATARI N 

ILL DO THE REST." 

140 PRINT :PRINT "IF YOU WOULD LIKE A 

PUZZLE FOR YOUR- SELF (BLANK SCREEN) , 
THEN TYPE '1';" 

145 PRINT "OTHERWISE, TYPE '0' TO BE6I 

N: "i 

150 INPUT BLANK:PRINT "}":Z=0 

140 DIH Ht(1000),At(41),B(3,3),A(37,20 

) 

145 W«="":FOR 1=1 TO 37: FOR J=l TO 20: 

A(I,J)=0:N£XT J:NEXT I 

170 Z=Z+1 

180 POSITION 2,22:PRINT "WORD t'iZ;": 

"i: INPUT A«:IF At="" THEH 180 

190 IF A»="STOP" THEN 530 

200 Ht(LEN(Wt)fl)=A$:W<(LEN(Wt)H)="t" 

210 U=INT(RND(1)»20)+1:L=INT(RND(1)«37 

)tl 

220 FOR X=-l TO 1:F0R Y=-l TO 1 

230 IF X=Y AND Y=0 THEN 330 

240 X1=L:Y1=U 

250 FOR C=l TO LEN(A») 

260 X1=X1+X:Y1=Y1+Y 

270 IF Xl>37 OR XKl OR Yl>20 OR YKl 

THEN B(X+2,Y+2)=0:60T0 330 

280 IF A(X1,Y1)=0 THEN 310 



290 IF A(X1,YI)<>ASC(A«(C,C)) THEN B(X 

t2,Y+2)=0:80T0 330 

300 B(X+2,Y+2)=B(X+2,Y+2)+l 

310 NEXT C 

320 B(X+2,Yt2)=B(X+2,Y+2)+l:B=B+l 

330 NEXT Y:NEXT X 

340 IF B=0 THEN 210 

350 R=2:D=2 

360 FOR X=l TO 3:F0R Y=l TO 3 

370 IF B(X,Y)>B(R,D) THEN R=X:D=Y 

380 NEXT Y:NEXT X 

390 X=R-2:Y=D-2 

400 IF X=-l AND Y=-l AND B(l,l)=l THEN 

420 
410 80T0 440 

420 X=INT(RND(1)»3)-1:Y=INT(RND(1)»3)- 
1 

430 IF (X=0 AND Y=0) OR B(X+2,Y+2)=0 T 
HEN 420 

440 X1=L:Y1=U 

450 FOR C=l TO LEN<At) 

460 Xl=Xl+X:Yl=YltY 

470 A(X1,Y1)=ASC(A$(C,C)) 

480 IF BLANK THEN 500 

490 POSITION X1+1,Y1:PRINT CHR»(A(X1,Y 

D); 

500 NEXT C 

510 B=0:F0R X=l TO 3:F0R Y=l TO 3:B(X, 

Y)=0:NEXT Y:NEXT X 

520 POSITION 2,22:PRINT " 

"j:BOTO 170 
530 FOR X=l TO 37: FOR y=l TO 20 

continued on next page 
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continued from previous page 


1*0 VTAB 18; PRINT "IF YOU NOULD 


370 IF BZ(X,Y) > BJ:(R,D) THEN R = 


540 IF AU,Y)<>0 THEN 560 


LIKE TO HAKE A PUZZLE FOR 


X;D = Y 


550 A(X,Y)M5:P0SITI0N M.YtPRINT ■-' 


YOURSELF (BLANK SCREEN), THE 


380 NEXT Y: NEXT X 


! 


NTYPE 'I'i OTHERNISE TYPE ' 


390 X = R - 2:Y = D - 2 


560 NEXT YiNEH K 


C TO BEGIN: "| 


400 IF X = - 1 AMD Y = - 1 AND 


570 POSITION 2,22!PRINT "READY TO PRIN 


150 INPUT BLANK: HONE :Z = 


Bl(l,l) = 1 THEN 420 


T; TURN ON PRINTER AND HIT 'RETURN' 


160 DIH N«(200),BI(3,3),AI(40,20 


410 GOTO 440 


■;: INPUT A»:60SUB 680 


) 


420 X = INT ( RND (1) t 3) - 1;Y 


580 LPRINT ;LPRINT 'NORD PUZZLE ANSMER 




= INT 1 RND (1) » 3) - 1 


KEY" 




430 IF (X = AND Y = 0) OR BKX 


590 LPRINT : LPRINT : LPRINT 


Beginning of Hord-entry loop. 


+ 2,Y + 2) = THEN 420 


600 PRINT :PRINT "PLEASE NAIT A NOHENT 




440 XI = L:Y1 = U 


FOR NE TO CREATE PUZZLE, . ," 






610 FOR X=l TO 37:F0R Y=l TO 20 


170 Z * Z t 1 




620 IF A(X,Y)<>45 THEN 640 


180 VTAB 22: HTAB 1: PRINT "HORD 


Print Hord on screen (unless blank 


630 B=INT(RND(1)»26)+65:A(X,Y)=B 


1 "iZ;": ";: INPUT A»: IF A 


screen Mas cKosen) . 


640 NEXT Y:NEXT X 


» = ■• THEN 180 




h50 6QSUB baO 


190 IF A$ = "STOP" THEN 530 




660 LPRINT :LPRINT "COMPUTER GENERATED 
HORD PUZZLE" 


200 W$(Z) = At 


450 FOR C = 1 TO LEN (A$) 


670 LPRINT :LPRINT :LPRINT :BOTO 730 




460 XI = XI + X:Y1 = Yl + Y 


680 LPRINT 




470 AKXl.Yl) = ASC ( NID» (A*,C 


690 FOR X=l TO 37:A*="" 


Choose randoi starting position. 


,1)) 


692 FOR Y=l TO 20 




480 IF BLANK THEN 500 


695 A$(LEN(A$)+1)=CHR$(A(X,Y)) 




490 VTAB Yl: HTAB XI: PRINT CHR* 


697 A$(LEN(A«)+1)=" " 


210 U = INT ( RND (1) t 20) + 1: 


(AX(Xl,Yl))i 


700 NEXT Y 


L = INT ( RND (1) t 40) M 


500 NEXT C 


705 A$=A$(1,LEN(A*)-1I 




510 B = 0: FOR X = 1 TO 3: FOR Y = 


710 LPRINT AtiNEXT X 




1 TO 3:B5:(X,Y) = 0: NEXT Y: NEXT 


720 RETURN 




X 


730 LPRINT .-LPRINT :LPRINT "NORD LIST" 


Check each direction to see if word 


520 VTAB 22: HTAB 1: PRINT SPC( 


;LPRINT 


■ay be Mritten in that direction. 


39);: GOTO 170 


740 J=1:F0R 1=1 TO LEN(N«) 






744 IF M*(I,I)='t" THEN LPRINT N«(J,I- 






1):J=I+1 


220 FOR X = - 1 TO 1: FOR Y = - 


Prepare answer key. 


746 NEXT I 


1 TO 1 




760 PRINT :PRINT "WOULD YOU LIKE ANOTH 


230 IF X = Y AND Y = THEN 330 




ER COPY "|: INPUT M 


240 XI = L:Y1 = U 


530 FOR X = 1 TO 40: FOR Y = 1 TO 


765 IF A$(1,1)="Y" THEN LPRINT :LPRINT 


250 FOR C = 1 TO LEN (A«) 


20 


;LPR1NT ;LPRINT :BOTO 650 


260 XI = XI + X:V1 = Yl + Y 


540 IF AX(X,Y) < > THEN 560 


770 END 


270 IF XI > 40 OR XI < 1 OR Yl > 


550 AI(X,Y) = 45: VTAB Y: HTAB X; 




20 OR Yl < 1 THEN BX(X + 2,Y 


PRINT "-"; 




+ 2) = 0: 60T0 330 


560 NEXT Y: NEXT X 


Apple Version 


280 IF AX(X1,Y1) = THEN 310 


570 VTAB 22: INPUT "READY TO PRI 




290 IF AX(X1,Y1) < > ASC ( HID* 


NT: TURN ON PRINTER AND HIT 


Instructions and initialization. 


(A$,C,1)) THEN BX(X + 2,Y + 


<RETURN>..."iA*: PRI 1: 60SUB 




2) = 0: GOTO 330 


680 
580 PRINT : PRINT "MORD PUZZLE A 


100 HONE ! VTAB lOi HTAB 14: PRINT 


300 BX(X + 2,Y + 2) = BKX + 2,Y + 


NSMER KEY' 


■NORD SEARCH PUZZLE': VTAB 1 


2) + 1 


590 PRINT : PRINT : PRINT 


2: HTAB 14: PRINT "BY DAVID 


310 NEXT C 




M. DURKEE": VTAB 14; HTAB 14 


320 BX(X + 2,Y + 2) = BX(X + 2,Y + 




: PRINT "C0PYRI6HT (C) 1981" 


2) + i:B = B + 1 
330 NEXT Y: NEXT X 


Fill in blanks with randoi letters. 


110 FOR I = 1 TO 2000: NEXT I 


340 IF B = THEN 210 




120 HONE : VTAB 10: PRINT "TO CR 




600 PRI 0: PRINT : PRINT "PLEASE 


EATE A PUZZLE, SIHPLY ENTER 




MAIT A MINUTE FOR ME TO CRE 


A NORD YOU MOULD LIKE TO HAV 


Select direction to Mrite word; if 


ATE PUZZLE...": PRI 1 


£ IN THE PUZZLE AFTER THE 


possible, choose one which will 


610 FOR X = 1 TO 40: FOR Y = 1 TO 


'?' PROnPT." 


intersect another Mord. 


20 


130 VTAB 14: PRINT "HHEN YOU'VE 




620 IF AX(X,Y) < > 45 THEN 640 


ENTERED ALL THE MORDS YOU 




630 B = INT ( RND (1) t 26) ♦ 65 


NOULD LIKE IN THE PUZZLE, TY 


350 R = 2:D = 2 


:Al(X,Y) = B 


PE 'STOP' AND THE APPLE NI 


360 FOR X = 1 TO 3: FOR Y = 1 TO 


640 NEXT Y: NEXT X 


LL DO THE REST." 


3 


650 GOSUB 680 
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660 PRINT ! PRINT 'COHPUTER BENE 

RATED NORD PUZZLE' 
670 PRINT : PRINT \ PRINT : 60T0 


690 FOR X = 1 TO 40: FOR Y = 1 TO 

20 
700 PRINT CHR» (ftXIXJ));' •; 


740 FOR I = 1 TO Z - l! PRINT Mt 

(I): NEXT I 
750 PRI 


730 


710 NEXT Y: PRINT : NEXT X 
720 RETURN 


Another copy? H not, then end. 


Subroutine to print coiplete 
puzzle. 


Print out word list. 


760 PRINT : INPUT "NOULD YOU LIK 
E ANOTHER COPY? ';A»: IF M = 


680 PRINT 


730 PRINT ! PRINT ! PRINT "NORD 
LIST': PRINT 


'Y' THEN PRI 1: SOTO 650 
770 END G 



Anallist 

continued from page 91 

t0i60 IFLEN(TJ)>64THENG0SUB60130 

60670 G ! =6 ' + 1 : IFG l<=S9 ! -2THEN60450ELSEIFLEN ( T») >0THENG0SUB60 1 30 

60680 E'=S9!:G0T060400 

Data items. 

60730 DftTfi'END "/FOR "/RESET "/SET "/CLS "/CHD "/RANDOH " 

/NEKT "/DATA "/INPUT "/DIN "/READ "/LET "/GOTO "/RUN "/ 

IF "/RESTORE "/GOSUB ','U RETURN l»"/'"/STOP"/ELSE "/TR 

ON"/TROFF" 

60740 DATA"DEFSTR "/DEFINT "/DEFSNG "/DEFDBL "/LINE "/EDIT 

'/ERROR "/RESUME "/OUT ","QN "/OPEN "/FIELD "/GET "/PUT " 



/CLOSE "/LOAD "/MERGE "/NAHE "/KILL "/LSET "/RSET "/SAVE 

60750 DATA"SYSTEN "/LPRINT "/DEF "/POKE "/PRINT "/CONT"/LI 

ST "/'LLIST'/DELETE '/AUTO "/CLEAR "/CLOAD "/CSAVE "/NEW. 
•TAB("/ TO "/FN"/USING "/VARPTR"/USR"/ERL"/ERR' 

60760 DATA"STRING$"/INSTR"/POINT"/TIME$"/HEM "/INKEY*"/ TH 

EN'/ NOT"/ STEP "/ + "/ - "/ « "/ / "/ [ "/ AND "/ OR " 

/ > "/ = "/ < "/SGN"/INT"/ABS"/FRE"/INP"/POS'/SQR"/RN 

D"/LOG"/E)iP"/COS"/SIN"/TAN" 

60770 DATA"ATN"/PEEK"/CVr/CVS"/CVD"/EDF "/L0C"/L06"/NKI 

»"/HKSr/l1KD*"/CINT"/CSNB"/CDBL"/Fir/LEN°/STRt"/VAL"/ 

ASC"/CHR»"/LEFT$"/RI6HT$"/MID»" ^ 



Lemonade and Champange 
continued from page 89 

valuable to you during system 
development. 

Symbols have been provided on the 
Program Design Description form 
for definition of the Input, Output, 
and File Media that are to be used. 
Three Input (I/P) forms symbols 
have been provided to identify one-, 
two- or three- Source Documents 
from which the operator derives data 
for keyboard entry required by the 
system. These symbols are annotated 
with references to the specific Source 
Document Description Form which 
will be contained in Section 1 . 

The CRT (Cathode Ray Tube or, 
as we call it. Video Screen) symbol is 
used to identify the applicable Video 
Screen Format Form, or Forms, 
which will be contained in Section 2 
or the manual. 

Two symbols have been provided 
for Magnetic Tape Input/Output if 
tape storage is to be used. Tape Files, 
as well as Disk Files which will be 
discussed in the following paragraph, 
are referenced to Section 4 of the 
manual which will contain the 
Record Layout Form for the Data 
File(s) to be used. 

Across the bottom of the Program 
Design Description form there are 
four blocks representing the Disk 
Drives. Of course, your system will 
probably be using less than four 
drives so use the number of blocks 



that are required. 

In the appropriate disk drive block 
you should include the filename of 
any Disk Data File with which the 
program or program module being 
described interfaces. In other words, 
any file that is read by or written to 
the program. Each of the filenames 
given should be identified by its File 
Type. The File Types we commonly 
use are: 

..."P" (Program). This is simply 
the required program. 

..."D" (Permanent Data File). 
This is a file of information (data) 
that is permanently maintained by 
the system. An example would be the 
Company Master File, or Employee 
Data File in our Payroll application 
from the previous Section. 

..."T" (Temporary Data File). 
This is a file that is created by one 
program or program module and 
possibly passed on to another pro- 
gram or program module. 
Characteristically, when the file has 
been used for its intended purpose, it 
is "KILLed". This type of file is 
sometimes known as either a "Tran- 
sient" or "Intermediate" File. 

..."I" (Intermediate File). In some 
cases, a program or program module 
will require some sort of special in- 
dependent program such as a 
Machine Language Subroutine for 
sorting data. We have included the 
File Type "I" to accommodate such 
program files in our documentation. 
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On the extreme right side of each 
of the Disk Drive symbols is a col- 
umn for "reference". 
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FREE 
48-Page 
Catalog 



A new, free 48-page catalog is free 
from Creative Computing and Peripti- 
erals Plus. To help buyers make intelli- 
gent purctiasing decisions, tfie product 
descriptions are exceptionally compre- 
hiensive and include screen photos in the 
software section. 

The catalog describes 20 books on pro- 
gramming, games, and educational appli- 
cations; 160 software packages for 
Apple, Atari, TRS-80, PET, CP/M, Tl, Sor- 
cerer and Sol computers; 3 magazines 
{Creative Computing, Microsystems, and 
SVA/C); 5 graphicsand music peripherals; 
an LP record; board game; 8 T-shirts and 
an eclectic assortment of other products 
for the personal computer user. 

To get your free copy, simply drop a 
card or note to the address below. 

creative compufciR^ 

Attn: Beverly 

39 East Hanover Avenue 

f^orris Plains, NJ 07960 
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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
programs! All you need to 



know IS m... 




ALL 
ONLY 



INCLUDES: 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phlllipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 



ORDER TOLL-FREE 

(In NH call 673-5144) 

1-800.-258-1790 



The Software Exchange 



A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level tl BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine arvd use ROM routines. 



